From dcf52a44f8341b512b18265b3a308d10370ee4ff Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 24 Sep 2022 16:25:07 +0300 Subject: Fix match --- src/Builtins.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Builtins.hs') diff --git a/src/Builtins.hs b/src/Builtins.hs index 1c1dd1b..ce47ac9 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -15,9 +15,9 @@ builtinEnv = M.fromList [ builtinAdd2 :: AST builtinAdd2 = - let outer ast1 = do + let outer _ ast1 = do (ASTInteger a) <- assertIsASTInteger ast1 - let inner ast2 = do + let inner _ ast2 = do (ASTInteger b) <- assertIsASTInteger ast2 return $ ASTInteger $ a + b return $ ASTFunction $ inner @@ -25,9 +25,9 @@ builtinAdd2 = builtinSubtract2 :: AST builtinSubtract2 = - let outer ast1 = do + let outer _ ast1 = do (ASTInteger a) <- assertIsASTInteger ast1 - let inner ast2 = do + let inner _ ast2 = do (ASTInteger b) <- assertIsASTInteger ast2 return $ ASTInteger $ a - b return $ ASTFunction $ inner @@ -35,7 +35,7 @@ builtinSubtract2 = builtinHead :: AST builtinHead = - let outer ast = do + let outer _ ast = do (ASTVector vec) <- assertIsASTVector ast when (length vec == 0) $ throwError $ LException $ "head of empty vector" return $ head vec @@ -43,7 +43,7 @@ builtinHead = builtinTail :: AST builtinTail = - let outer ast = do + let outer _ ast = do (ASTVector vec) <- assertIsASTVector ast when (length vec == 0) $ throwError $ LException $ "tail of empty vector" return $ ASTVector $ tail vec @@ -51,8 +51,8 @@ builtinTail = builtinPrepend :: AST builtinPrepend = - let outer ast1 = do - let inner ast2 = do + let outer _ ast1 = do + let inner _ ast2 = do (ASTVector vec) <- assertIsASTVector ast2 return $ ASTVector $ ast1 : vec return $ ASTFunction $ inner -- cgit v1.3