Commit afe7da4f authored by dterei's avatar dterei
Browse files

simplify code.

parent 394a68a9
......@@ -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
......
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