Add some concept docs

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 00d9f37..a2c65c6 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -23,11 +23,16 @@ runInlineScript env src = do
     config <- ask
     when (configVerboseMode config) $ liftIO $ putStrLn $ "tokenized:\t\t" ++ show tokenized
     parsed <- parse tokenized
+
     when (configVerboseMode config) $ do
         let output = "parsed:\t\t\t" ++ (map show parsed $> L.intercalate "\n\t\t\t")
         liftIO $ putStrLn output
+
     (newEnv, evaluated) <- foldEvaluate env parsed
-    liftIO $ mapM_ putStrLn (map show evaluated)
+
+    when (configPrintEvaled config) $ do
+        liftIO $ mapM_ putStrLn (map show evaluated)
+
     return (newEnv, evaluated)
         where
             foldEvaluate :: Env -> [AST] -> LContext (Env, [AST])