Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/afe7da4f5a3a530ee0af6c5e0807fd4140ab62e7 >--------------------------------------------------------------- commit afe7da4f5a3a530ee0af6c5e0807fd4140ab62e7 Author: David Terei <[email protected]> Date: Wed Dec 21 14:57:53 2011 -0800 simplify code. >--------------------------------------------------------------- ghc/InteractiveUI.hs | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 978cb06..cb16d3b 100644 --- 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
