diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-26 11:15:48 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 158b202ba113914a8aa1fc7a8a410d98bfb18f5b (patch) | |
| tree | e4fda8c15395c16e2116bb33d4f9d317af1ec282 /src | |
| parent | 98d3f41cd8cebf1c1e26c29f01140d0543ee5853 (diff) | |
Improve tests
Diffstat (limited to 'src')
| -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) |