simplify code.

afe7da4f · dterei · 394a68a9 · afe7da4f
Commit afe7da4f authored Dec 21, 2011 by dterei
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

ghc/InteractiveUI.hs ghc/InteractiveUI.hs +3 -2

No files found.
--- a/ghc/InteractiveUI.hs
+++ b/ghc/InteractiveUI.hs
@@ -1567,8 +1567,9 @@ moduleCmd str
          '-':stuff -> rest remModulesFromContext stuff
          stuff     -> rest setContext            stuff

-    rest op stuff = (op as bs, words stuff)
-       where (as,bs) = partitionWith starred strs
+    rest op stuff = (op as bs, stuffs)
+       where (as,bs) = partitionWith starred stuffs
+             stuffs  = words stuff

    sensible ('*':m) = looksLikeModuleName m
    sensible m       = looksLikeModuleName m