Extestation and humanification

1 files changed, 8 insertions, 1 deletions

diff --git a/src/Parser.hs b/src/Parser.hs
index 1d889d3..4237db7 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -73,9 +73,16 @@ parseNumeral = do
   number :: Parser Integer
   number = ap sign nat
 
+specialEscape :: Parser Char
+specialEscape =
+  choice (zipWith (\c r -> r <$ char c) "bnfrt\\\"/" "\b\n\f\r\t\\\"/")
+
 parseString :: Parser Expression
 parseString = do
-  str <- between (char '\"') (char '\"') (some $ satisfy (`notElem` "\"\\"))
+  str <- between
+    (char '\"')
+    (char '\"')
+    (some $ (char '\\' *> specialEscape) <|> (satisfy (`notElem` "\"\\")))
   pure (stringToExpression str) <?> "string"
 
 parseChar :: Parser Expression