From 32130b53445bc9f51ce385ef4c4ed9bc33363d1b Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 23 Aug 2006 09:52:58 +0000 Subject: [PATCH] in the GHCi prompt, print ModuleNames not Modules --- compiler/ghci/InteractiveUI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 8a20fb1..cac385b 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -485,8 +485,8 @@ mkPrompt toplevs exports prompt f (x:xs) = char x <> f xs f [] = empty - perc_s = hsep (map (\m -> char '*' <> pprModule m) toplevs) <+> - hsep (map pprModule exports) + perc_s = hsep (map (\m -> char '*' <> ppr (GHC.moduleName m)) toplevs) <+> + hsep (map (ppr . GHC.moduleName) exports) #ifdef USE_READLINE -- 1.7.10.4