From 158b202ba113914a8aa1fc7a8a410d98bfb18f5b Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 26 Sep 2022 11:15:48 +0300 Subject: Improve tests --- src/Utils.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src') diff --git a/src/Utils.hs b/src/Utils.hs index 3cf61bf..76f1524 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -18,6 +18,9 @@ data Config = Config { type LContext a = ReaderT Config (ExceptT LException IO) a +runL :: Config -> LContext a -> IO (Either LException a) +runL config lc = runExceptT $ runReaderT lc config + type Env = M.Map String AST type LFunction = (Env -> AST -> LContext AST) -- cgit v1.3