Commit afe7da4f authored by dterei's avatar dterei
Browse files

simplify code.

parent 394a68a9
...@@ -1567,8 +1567,9 @@ moduleCmd str ...@@ -1567,8 +1567,9 @@ moduleCmd str
'-':stuff -> rest remModulesFromContext stuff '-':stuff -> rest remModulesFromContext stuff
stuff -> rest setContext stuff stuff -> rest setContext stuff
rest op stuff = (op as bs, words stuff) rest op stuff = (op as bs, stuffs)
where (as,bs) = partitionWith starred strs where (as,bs) = partitionWith starred stuffs
stuffs = words stuff
sensible ('*':m) = looksLikeModuleName m sensible ('*':m) = looksLikeModuleName m
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