NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

✨

Browse Source
This commit is contained in:
NikolajDanger
2024-09-28 14:43:34 +02:00
parent a9a530444e
commit 31a4cdaca8
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
a3/a3-handout/src/APL/Parser.hs
View File

@ -51,7 +51,7 @@ lVName = lexeme $ try $ do
lStringLit :: Parser String lStringLit :: Parser String
lStringLit = lStringLit =
lexeme $ some (satisfy (/= '"')) lexeme $ many (satisfy (/= '"'))
lInteger :: Parser Integer lInteger :: Parser Integer
lInteger = lInteger =

3
a3/a3-handout/src/APL/Parser_Tests.hs
View File

@ -88,7 +88,8 @@ tests =
"Print" "Print"
[ parserTest "print \"test\" x" $ Print "test" (Var "x"), [ parserTest "print \"test\" x" $ Print "test" (Var "x"),
parserTest "print \"7\" x" $ Print "7" (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 testGroup
"Get" "Get"