✨

2024-09-28 14:43:34 +02:00
parent a9a530444e
commit 31a4cdaca8
2 changed files with 3 additions and 2 deletions
--- a/a3/a3-handout/src/APL/Parser.hs
+++ b/a3/a3-handout/src/APL/Parser.hs
@ -51,7 +51,7 @@ lVName = lexeme $ try $ do

 lStringLit :: Parser String
 lStringLit =
-  lexeme $ some (satisfy (/= '"'))
+  lexeme $ many (satisfy (/= '"'))

 lInteger :: Parser Integer
 lInteger =
--- a/a3/a3-handout/src/APL/Parser_Tests.hs
+++ b/a3/a3-handout/src/APL/Parser_Tests.hs
@ -88,7 +88,8 @@ tests =
        "Print"
        [ parserTest "print \"test\" x" $ Print "test" (Var "x"),
          parserTest "print \"7\" x" $ Print "7" (Var "x"),
-          parserTest "print \"cool_print\" x" $ Print "cool_print" (Var "x")
+          parserTest "print \"cool_print\" x" $ Print "cool_print" (Var "x"),
+          parserTest "print \"\" x" $ Print "" (Var "x")
        ],
      testGroup
        "Get"