diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-26 10:38:59 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 98d3f41cd8cebf1c1e26c29f01140d0543ee5853 (patch) | |
| tree | 5924997c3f45d514e624b646baa1f2bb09103c81 /test/TestUtils.hs | |
| parent | 15b613ac76fa2a9a439f10ac9455c6eb1498b03f (diff) | |
Improve tests
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 11 |
1 files changed, 6 insertions, 5 deletions
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 + |