diff --git a/a3/a3-handout/src/APL/Parser.hs b/a3/a3-handout/src/APL/Parser.hs
index 530eec1..539a0dc 100644
--- 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 =
diff --git a/a3/a3-handout/src/APL/Parser_Tests.hs b/a3/a3-handout/src/APL/Parser_Tests.hs
index e737e86..2b876b1 100644
--- 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"