Fix match

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