[FIX] Generalize escape character

This commit is contained in:
Nikolay Yakimov 2015-12-20 08:17:30 +03:00
parent 06be93bb89
commit a31b71c2d8
1 changed files with 1 additions and 1 deletions

View File

@ -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)