Replace -fshow-source-paths with -fhide-source-paths
[ghc.git] / compiler / main / HscTypes.hs
index b3a332e..e5f824f 100644 (file)
@@ -2636,21 +2636,21 @@ instance Outputable ModSummary where
             ]
 
 showModMsg :: DynFlags -> HscTarget -> Bool -> ModSummary -> String
-showModMsg dflags target recomp mod_summary = showSDoc dflags $ hcat
-   [ text (mod_str ++ replicate (max 1 (17 - length mod_str)) ' ')
-   , char '('
-   , text (op $ msHsFilePath mod_summary)
-   , text " -> "
-   , case target of
-        HscInterpreted | recomp -> text "interpreted"
-        HscNothing              -> text "nothing"
-        _                       -> text (op $ msObjFilePath mod_summary)
-   , char ')'
-   ]
+showModMsg dflags target recomp mod_summary = showSDoc dflags $
+   if gopt Opt_HideSourcePaths dflags
+      then text mod_str
+      else hsep
+         [ text (mod_str ++ replicate (max 0 (16 - length mod_str)) ' ')
+         , char '('
+         , text (op $ msHsFilePath mod_summary) <> char ','
+         , case target of
+              HscInterpreted | recomp -> text "interpreted"
+              HscNothing              -> text "nothing"
+              _                       -> text (op $ msObjFilePath mod_summary)
+         , char ')'
+         ]
   where
-    op      = if verbosity dflags > 1 || gopt Opt_ShowSourcePaths dflags
-                  then normalise
-                  else takeExtension
+    op      = normalise
     mod     = moduleName (ms_mod mod_summary)
     mod_str = showPpr dflags mod ++ hscSourceString (ms_hsc_src mod_summary)