From 98d3f41cd8cebf1c1e26c29f01140d0543ee5853 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 26 Sep 2022 10:38:59 +0300 Subject: Improve tests --- test/TestUtils.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'test/TestUtils.hs') diff --git a/test/TestUtils.hs b/test/TestUtils.hs index 478d923..bcb147c 100644 --- a/test/TestUtils.hs +++ b/test/TestUtils.hs @@ -12,8 +12,9 @@ initialConfig = Config { configShowHelp = False } -runLContext :: LContext a -> IO a -runLContext lc = do res <- runExceptT $ runReaderT lc initialConfig - case res of - Left (LException err) -> error err - Right val -> return val +runL :: LContext a -> IO a +runL lc = do res <- runExceptT $ runReaderT lc initialConfig + case res of + Left (LException err) -> error err + Right val -> return val + -- cgit v1.3