[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
|
| isEscapeChar esc
|
||||||
= if isEscapable c
|
= if isEscapable c
|
||||||
then go cl (c:curarg) accargs quote
|
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
|
-- quote character -- opens quotes
|
||||||
go (c:cl) curarg accargs Nothing
|
go (c:cl) curarg accargs Nothing
|
||||||
| isQuote c = go cl curarg accargs (Just c)
|
| isQuote c = go cl curarg accargs (Just c)
|
||||||
|
Loading…
Reference in New Issue
Block a user