From 2ea2c405746bfa79d3be478f4c8763dd7dd6ac5f Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 26 Sep 2022 14:02:28 +0300
Subject: Add some concept docs

---
 src/Utils.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/Utils.hs')

diff --git a/src/Utils.hs b/src/Utils.hs
index 76f1524..e0695c3 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -13,7 +13,8 @@ newtype LException = LException String
 data Config = Config {
     configScriptFileName :: Maybe String,
     configVerboseMode :: Bool,
-    configShowHelp :: Bool
+    configShowHelp :: Bool,
+    configPrintEvaled :: Bool
 }
 
 type LContext a = ReaderT Config (ExceptT LException IO) a
@@ -95,6 +96,11 @@ assertIsASTVector ast = case ast of
     (ASTVector _) -> return ast
     _ -> throwL $ show ast ++ " is not a vector"
 
+assertIsASTString :: AST -> LContext AST
+assertIsASTString ast = case ast of
+    (ASTString _) -> return ast
+    _ -> throwL $ show ast ++ " is not a string"
+
 assertIsASTFunctionCall :: AST -> LContext AST
 assertIsASTFunctionCall ast = case ast of
     (ASTFunctionCall _) -> return ast
-- 
cgit v1.3