From dd46dafe65e93b687ce5051288ab3f5cbfb7e09a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 30 Jan 2022 21:23:47 +0200
Subject: Monadic error handling

---
 src/ltypes.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/ltypes.hs')

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
-- 
cgit v1.3