From 73ae65e04f7c41dd676d3cbaf3885553352f688c Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 26 Sep 2022 11:35:17 +0300
Subject: Add e2e tests

---
 test/TestUtils.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'test/TestUtils.hs')

diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index 676df1d..ad31c78 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -1,19 +1,17 @@
 {-# OPTIONS_GHC -Wno-missing-export-lists #-}
 module TestUtils where
 
-import Control.Monad.Except
-import Control.Monad.Reader
 import Utils
 
-initialConfig :: Config
-initialConfig = Config {
+testConfig :: Config
+testConfig = Config {
     configScriptFileName = Nothing,
     configVerboseMode = False,
     configShowHelp = False
 }
 
 testRunL :: LContext a -> IO (Either LException a)
-testRunL lc = runExceptT $ runReaderT lc initialConfig
+testRunL = runL testConfig
 
 expectSuccessL :: LContext a -> IO a
 expectSuccessL lc =
-- 
cgit v1.3