diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-01-30 21:23:47 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-01-30 21:38:29 +0200 |
| commit | dd46dafe65e93b687ce5051288ab3f5cbfb7e09a (patch) | |
| tree | d527397c5f2205f6b6754f96fdd7166cc87a92e0 /src/ltypes.hs | |
| parent | 542b0d035444416cae8994f89d1ae11c4e4c5df9 (diff) | |
Monadic error handling
Diffstat (limited to 'src/ltypes.hs')
| -rw-r--r-- | src/ltypes.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/ltypes.hs b/src/ltypes.hs index 27fdd35..ee4685e 100644 --- a/src/ltypes.hs +++ b/src/ltypes.hs @@ -1,5 +1,6 @@ module LTypes where +import Control.Monad.Except import Data.Map (Map) import qualified Data.Map as M import Utils @@ -52,3 +53,5 @@ debugState Config {configDebugMode = mode} state = putStrLn $ "lPhraseDepth: " ++ show (lPhraseDepth state) putStrLn "" else pure () + +newtype LException = LException String |