[FIX] Generalize escape character
This commit is contained in:
parent
06be93bb89
commit
a31b71c2d8
@ -35,7 +35,7 @@ go (esc:c:cl) curarg accargs quote
|
||||
| isEscapeChar esc
|
||||
= if isEscapable c
|
||||
then go cl (c:curarg) accargs quote
|
||||
else go (c:cl) ('\\':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)
|
||||
|
Loading…
Reference in New Issue
Block a user