From 2cd941c44d3b067acab871474383057344afcf37 Mon Sep 17 00:00:00 2001 From: Samir Benmendil Date: Sat, 20 Jan 2018 22:41:50 +0000 Subject: [PATCH] Add various escape chars --- app/Main.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 0c0d29c..533d260 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -24,8 +24,14 @@ parseString = do char '"' return $ String x where innerChar = noneOf ['\\', '\"'] <|> escapeChar escapeChar = do char '\\' - c <- oneOf "\"" - return $ '\"' + c <- oneOf ['\"', '\\', 'n', 'r', 't', 'f'] + return $ case c of + '\"' -> '\"' + '\\' -> '\\' + 'n' -> '\n' + 'r' -> '\r' + 't' -> '\t' + 'f' -> '\f' parseAtom :: Parser LispVal parseAtom = do -- 2.48.1