From 51c3993f0a84b3de57bae480ce7bb14a1408f25e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Fri, 23 Sep 2022 15:02:46 +0300
Subject: Implement parser

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 1829c62..978cafc 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -26,7 +26,7 @@ repl config = do
             result <- lift $ runExceptT $ runReaderT (runInlineScript input) config
             case result of
                 Left (LException ex) -> outputStrLn $ "Error: " ++ ex
-                Right () -> outputStrLn $ input
+                Right () -> return ()
             repl config
 
 main :: IO ()
-- 
cgit v1.3