diff options
| -rw-r--r-- | ghc/GHCi/UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index c2dbb64a5a..0b5076e390 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -919,7 +919,7 @@ generatePromptFunctionFromString promptS modules_names line = processString ('%':'s':xs) = liftM2 (<>) (return modules_list) (processString xs) where - modules_list = hsep $ map text modules_names + modules_list = hsep . map text . ordNub $ modules_names processString ('%':'l':xs) = liftM2 (<>) (return $ ppr line) (processString xs) processString ('%':'d':xs) = |