From 70468c0217e70858bfa037ad81ce8caf1b582ec2 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Sat, 24 Sep 2022 15:59:16 +0300
Subject: Implement let

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

(limited to 'src/Types.hs')

diff --git a/src/Types.hs b/src/Types.hs
index 9953882..515910b 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -16,6 +16,8 @@ data Config = Config {
 
 type LContext a = ReaderT Config (ExceptT LException IO) a
 
+type Env = M.Map String AST
+
 data AST
     = ASTInteger Int
     | ASTDouble Double
@@ -87,5 +89,3 @@ assertIsASTFunctionCall :: AST -> LContext AST
 assertIsASTFunctionCall ast = case ast of
     (ASTFunctionCall _) -> return ast
     _ -> throwError $ LException $ show ast ++ " is not a function call or body"
-
-type Env = M.Map String AST
-- 
cgit v1.3