diff options
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 16 |
1 files changed, 8 insertions, 8 deletions
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 |