hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use fewer pattern matches

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-12-20 08:24:14 +03:00
parent a31b71c2d8
commit 057f6fba10
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/GHCMod/Options/ShellEscape.hs
View File

@ -36,15 +36,15 @@ go (esc:c:cl) curarg accargs quote
= if isEscapable c = if isEscapable c
then go cl (c:curarg) accargs quote then go cl (c:curarg) accargs quote
else go (c:cl) (esc:curarg) accargs quote else go (c:cl) (esc:curarg) accargs quote
-- quote character -- opens quotes
go (c:cl) curarg accargs Nothing
| isQuote c = go cl curarg accargs (Just c)
-- close quotes
go (c:cl) curarg accargs (Just q)
| c == q = go cl curarg accargs Nothing
go (c:cl) curarg accargs quotes go (c:cl) curarg accargs quotes
-- quote character -- opens quotes
| isQuote c, isNothing quotes
= go cl curarg accargs (Just c)
-- close quotes
| quotes == Just c
= go cl curarg accargs Nothing
-- space separates argumetns outside quotes -- space separates argumetns outside quotes
| isSpace c && isNothing quotes | isSpace c, isNothing quotes
= if null curarg = if null curarg
then go cl curarg accargs quotes then go cl curarg accargs quotes
else go cl [] (reverse curarg : accargs) quotes else go cl [] (reverse curarg : accargs) quotes