diff options
| author | Jan Tuomi <jan.tuomi@valuemotive.com> | 2022-09-24 16:25:07 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | dcf52a44f8341b512b18265b3a308d10370ee4ff (patch) | |
| tree | ca598d5db6949f516e2cc3a2a84751ff74e84711 /src/Types.hs | |
| parent | 70468c0217e70858bfa037ad81ce8caf1b582ec2 (diff) | |
Fix match
Diffstat (limited to 'src/Types.hs')
| -rw-r--r-- | src/Types.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Types.hs b/src/Types.hs index 515910b..08736cc 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -18,6 +18,8 @@ type LContext a = ReaderT Config (ExceptT LException IO) a type Env = M.Map String AST +type LFunction = (Env -> AST -> LContext AST) + data AST = ASTInteger Int | ASTDouble Double @@ -27,7 +29,7 @@ data AST | ASTVector [AST] | ASTFunctionCall [AST] | ASTHashMap (M.Map AST AST) - | ASTFunction (AST -> LContext AST) + | ASTFunction LFunction | ASTUnit instance (Show AST) where |