From a5ce95f40188c4525bc98307d09015a5dca93bb3 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sun, 25 Sep 2022 18:00:47 +0300 Subject: Refactor Lib.hs --- src/Builtins.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Builtins.hs') diff --git a/src/Builtins.hs b/src/Builtins.hs index 37c9238..a4676b8 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -17,7 +17,8 @@ builtinEnv = M.fromList [ ] -- maybe make a builtinBinaryFunction? --- builtinAdd2 = builtinBinaryFunction (ASTInteger a) (ASTInteger b) (\a b -> a + b) +-- builtinBinaryFunction :: AST -> AST -> (AST -> AST -> AST) -> AST +-- builtinAdd2 = builtinBinaryFunction (ASTInteger a) (ASTInteger b) (\(ASTInteger a) (ASTInteger b) -> ASTInteger $ a + b) builtinAdd2 :: AST builtinAdd2 = let outer :: LFunction -- cgit v1.3