Fix for #13862: Optional "-v" not allowed with :load in GHCi
authorroland <rsx@bluewin.ch>
Sun, 16 Sep 2018 16:06:13 +0000 (19:06 +0300)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Sun, 16 Sep 2018 16:24:54 +0000 (19:24 +0300)
Replace the error message
    `Use -v to see a list of the files searched for.`
with
    `Use -v (or :set -v` in ghci) to see a list of the files searched for.`

Reviewers: bgamari, monoidal, thomie, osa1

Subscribers: rwbarton, carter

GHC Trac Issues: #13862

Differential Revision: https://phabricator.haskell.org/D5122

15 files changed:
compiler/main/Finder.hs
testsuite/tests/ghc-e/should_run/T2636.stderr
testsuite/tests/module/mod1.stderr
testsuite/tests/module/mod2.stderr
testsuite/tests/package/T4806.stderr
testsuite/tests/package/T4806a.stderr
testsuite/tests/package/package01e.stderr
testsuite/tests/package/package06e.stderr
testsuite/tests/package/package07e.stderr
testsuite/tests/package/package08e.stderr
testsuite/tests/perf/compiler/parsing001.stderr
testsuite/tests/plugins/T11244.stderr
testsuite/tests/plugins/plugins03.stderr
testsuite/tests/safeHaskell/safeLanguage/SafeLang07.stderr
testsuite/tests/typecheck/should_fail/tcfail082.stderr

index 40efcf3..9a3cb60 100644 (file)
@@ -652,7 +652,7 @@ cantFindErr cannot_find _ dflags mod_name find_result
                 -> not_found_in_package pkg files
 
                 | not (null suggest)
-                -> pp_suggestions suggest $$ tried_these files
+                -> pp_suggestions suggest $$ tried_these files dflags
 
                 | null files && null mod_hiddens &&
                   null pkg_hiddens && null unusables
@@ -662,7 +662,7 @@ cantFindErr cannot_find _ dflags mod_name find_result
                 -> vcat (map pkg_hidden pkg_hiddens) $$
                    vcat (map mod_hidden mod_hiddens) $$
                    vcat (map unusable unusables) $$
-                   tried_these files
+                   tried_these files dflags
 
             _ -> panic "cantFindErr"
 
@@ -676,20 +676,13 @@ cantFindErr cannot_find _ dflags mod_name find_result
          in
          text "Perhaps you haven't installed the " <> text build <>
          text " libraries for package " <> quotes (ppr pkg) <> char '?' $$
-         tried_these files
+         tried_these files dflags
 
        | otherwise
        = text "There are files missing in the " <> quotes (ppr pkg) <>
          text " package," $$
          text "try running 'ghc-pkg check'." $$
-         tried_these files
-
-    tried_these files
-        | null files = Outputable.empty
-        | verbosity dflags < 3 =
-              text "Use -v to see a list of the files searched for."
-        | otherwise =
-               hang (text "Locations searched:") 2 $ vcat (map text files)
+         tried_these files dflags
 
     pkg_hidden :: UnitId -> SDoc
     pkg_hidden pkgid =
@@ -778,7 +771,7 @@ cantFindInstalledErr cannot_find _ dflags mod_name find_result
                 -> text "It is not a module in the current program, or in any known package."
 
                 | otherwise
-                -> tried_these files
+                -> tried_these files dflags
 
             _ -> panic "cantFindInstalledErr"
 
@@ -804,17 +797,19 @@ cantFindInstalledErr cannot_find _ dflags mod_name find_result
          in
          text "Perhaps you haven't installed the " <> text build <>
          text " libraries for package " <> quotes (ppr pkg) <> char '?' $$
-         tried_these files
+         tried_these files dflags
 
        | otherwise
        = text "There are files missing in the " <> quotes (ppr pkg) <>
          text " package," $$
          text "try running 'ghc-pkg check'." $$
-         tried_these files
-
-    tried_these files
-        | null files = Outputable.empty
-        | verbosity dflags < 3 =
-              text "Use -v to see a list of the files searched for."
-        | otherwise =
-               hang (text "Locations searched:") 2 $ vcat (map text files)
+         tried_these files dflags
+
+tried_these :: [FilePath] -> DynFlags -> SDoc
+tried_these files dflags
+    | null files = Outputable.empty
+    | verbosity dflags < 3 =
+          text "Use -v (or `:set -v` in ghci) " <>
+              text "to see a list of the files searched for."
+    | otherwise =
+          hang (text "Locations searched:") 2 $ vcat (map text files)
index bf73e40..9a2c667 100644 (file)
@@ -1,4 +1,4 @@
 
 T2636.hs:1:1: error:
     Could not find module ‘MissingModule’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 50554ae..9bcff0b 100644 (file)
@@ -1,4 +1,4 @@
 
 mod1.hs:3:1: error:
     Could not find module ‘N’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index a070917..d9d0716 100644 (file)
@@ -1,4 +1,4 @@
 
 mod2.hs:3:1: error:
     Could not find module ‘N’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 6b332fd..99bde2e 100644 (file)
@@ -1,6 +1,6 @@
 
 T4806.hs:1:1: error:
     Could not load module ‘Data.Map’
-    It is a member of the package ‘containers-0.5.11.0
+    It is a member of the package ‘containers-0.6.0.1
     which is ignored due to an -ignore-package flag
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 36cbb59..3d768a6 100644 (file)
@@ -1,7 +1,7 @@
 
 T4806a.hs:1:1: error:
     Could not load module ‘Data.Map’
-    It is a member of the package ‘containers-0.5.11.0
+    It is a member of the package ‘containers-0.6.0.1
     which is unusable because the -ignore-package flag was used to ignore at least one of its dependencies:
       deepseq-1.4.4.0
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 7ae545f..3381a1b 100644 (file)
@@ -1,14 +1,14 @@
 
 package01e.hs:2:1: error:
     Could not load module ‘Data.Map’
-    It is a member of the hidden package ‘containers-0.5.11.0’.
+    It is a member of the hidden package ‘containers-0.6.0.1’.
     You can run ‘:set -package containers’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package01e.hs:3:1: error:
     Could not load module ‘Data.IntMap’
-    It is a member of the hidden package ‘containers-0.5.11.0’.
+    It is a member of the hidden package ‘containers-0.6.0.1’.
     You can run ‘:set -package containers’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 40673b8..12d7212 100644 (file)
@@ -1,14 +1,14 @@
 
 package06e.hs:2:1: error:
     Could not load module ‘HsTypes’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package06e.hs:3:1: error:
     Could not load module ‘UniqFM’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 132268c..2678972 100644 (file)
@@ -1,26 +1,26 @@
 
 package07e.hs:2:1: error:
     Could not find module ‘MyHsTypes’
-    Perhaps you meant HsTypes (needs flag -package-key ghc-8.5)
-    Use -v to see a list of the files searched for.
+    Perhaps you meant HsTypes (needs flag -package-key ghc-8.7)
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package07e.hs:3:1: error:
     Could not load module ‘HsTypes’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package07e.hs:4:1: error:
     Could not load module ‘HsUtils’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package07e.hs:5:1: error:
     Could not load module ‘UniqFM’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 31b6e76..f02e9d6 100644 (file)
@@ -1,26 +1,26 @@
 
 package08e.hs:2:1: error:
     Could not find module ‘MyHsTypes’
-    Perhaps you meant HsTypes (needs flag -package-key ghc-8.5)
-    Use -v to see a list of the files searched for.
+    Perhaps you meant HsTypes (needs flag -package-key ghc-8.7)
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package08e.hs:3:1: error:
     Could not load module ‘HsTypes’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package08e.hs:4:1: error:
     Could not load module ‘HsUtils’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 package08e.hs:5:1: error:
     Could not load module ‘UniqFM’
-    It is a member of the hidden package ‘ghc-8.5’.
+    It is a member of the hidden package ‘ghc-8.7’.
     You can run ‘:set -package ghc’ to expose it.
     (Note: this unloads all the modules in the current scope.)
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index d24d775..8293a1a 100644 (file)
@@ -1,4 +1,4 @@
 
 parsing001.hs:3:1: error:
     Could not find module ‘Wibble’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 0c3b3cf..72f0106 100644 (file)
@@ -2,4 +2,4 @@
 It is a member of the hidden package ‘rule-defining-plugin-0.1’.
 You can run ‘:set -package rule-defining-plugin’ to expose it.
 (Note: this unloads all the modules in the current scope.)
-Use -v to see a list of the files searched for.
+Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index c02965a..a923550 100644 (file)
@@ -1,2 +1,2 @@
 <command line>: Could not find module ‘Simple.NonExistentPlugin’
-Use -v to see a list of the files searched for.
+Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index d32906e..acfb8de 100644 (file)
@@ -4,4 +4,4 @@ SafeLang07.hs:2:14: warning:
 
 SafeLang07.hs:15:1: error:
     Could not find module ‘SafeLang07_A’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
index 841b5c8..31317b2 100644 (file)
@@ -1,12 +1,12 @@
 
 tcfail082.hs:2:1: error:
     Could not find module ‘Data82’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 tcfail082.hs:3:1: error:
     Could not find module ‘Inst82_1’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.
 
 tcfail082.hs:4:1: error:
     Could not find module ‘Inst82_2’
-    Use -v to see a list of the files searched for.
+    Use -v (or `:set -v` in ghci) to see a list of the files searched for.