diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-25 18:00:47 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | a5ce95f40188c4525bc98307d09015a5dca93bb3 (patch) | |
| tree | cb364a95ba197eabad7d1e17b95905da9a2ebcd9 /src/Builtins.hs | |
| parent | 6314bf6584f98c735f606155a76c809fd6de5d0b (diff) | |
Refactor Lib.hs
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |