X-Git-Url: https://git.rmz.io/my-scheme.git/blobdiff_plain/0a6833657330f8514c235e672b1d4dc6e1ec7ad5..3144d06ee882e88a81a02c532061a48997506cf6:/app/Main.hs?ds=inline

diff --git a/app/Main.hs b/app/Main.hs
index cea4c9b..0c0d29c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -22,7 +22,10 @@ parseString = do char '"'
                  x <- many innerChar
                  char '"'
                  return $ String x
-              where innerChar = noneOf "\""
+              where innerChar = noneOf ['\\', '\"'] <|> escapeChar
+                    escapeChar = do char '\\'
+                                    c <- oneOf "\""
+                                    return $ '\"'
 
 parseAtom :: Parser LispVal
 parseAtom = do