From d077ab33940f23873eb34254cc8b168bef4a82c9 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 31 Mar 2019 22:17:54 +0100 Subject: Fix some of the tests --- src/VeriFuzz/Parser/Parser.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/VeriFuzz/Parser/Parser.hs b/src/VeriFuzz/Parser/Parser.hs index 5a1d163..4ba36e2 100644 --- a/src/VeriFuzz/Parser/Parser.hs +++ b/src/VeriFuzz/Parser/Parser.hs @@ -125,7 +125,8 @@ systemFunc s = satisfy' matchId parseFunction :: Parser Function parseFunction = - systemFunc "unsigned" $> UnSignedFunc <|> systemFunc "signed" $> SignedFunc + systemFunc "$unsigned" $> UnSignedFunc + <|> systemFunc "$signed" $> SignedFunc parseFun :: Parser Expr parseFun = do -- cgit