From 2ea2c405746bfa79d3be478f4c8763dd7dd6ac5f Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 26 Sep 2022 14:02:28 +0300 Subject: Add some concept docs --- src/Lib.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/Lib.hs') 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]) -- cgit v1.3