diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 1b3ac41..c23130d 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -101,7 +101,9 @@ parseString = do parseChar :: Parser Expression parseChar = do ch <- - between (char '\'') (char '\'') (satisfy (`notElem` "\"\\")) + between (char '\'') + (char '\'') + ((char '\\' *> specialEscape) <|> satisfy (`notElem` "\"\\")) <?> "quoted char" pure $ charToExpression ch |