From dcf52a44f8341b512b18265b3a308d10370ee4ff Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Sat, 24 Sep 2022 16:25:07 +0300
Subject: Fix match

---
 src/Types.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Types.hs')

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
-- 
cgit v1.3