diff options
Diffstat (limited to 'src/Utils.hs')
| -rw-r--r-- | src/Utils.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |