From 158b202ba113914a8aa1fc7a8a410d98bfb18f5b Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 26 Sep 2022 11:15:48 +0300
Subject: Improve tests

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

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 06ddb62..4f69776 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -24,7 +24,7 @@ repl config env = do
     case minput of
         Nothing -> return ()
         Just input -> do
-            result <- lift $ runExceptT $ runReaderT (runInlineScript env input) config
+            result <- lift $ runL config (runInlineScript env input)
             case result of
                 Left (LException ex) -> do
                     outputStrLn $ "Error: " ++ ex
@@ -56,7 +56,7 @@ main = do
 
         case (configScriptFileName config) of
             Just scriptFileName -> do
-                result <- runExceptT $ runReaderT (runScriptFile builtinEnv scriptFileName) config
+                result <- runL config (runScriptFile builtinEnv scriptFileName)
                 case result of
                     Left (LException ex) -> putStrLn $ "Error: " ++ ex
                     Right _ -> return ()
-- 
cgit v1.3