Commit 32130b53 authored by Simon Marlow's avatar Simon Marlow

in the GHCi prompt, print ModuleNames not Modules

parent 20f9bf2e
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment