diff options
Diffstat (limited to 'events/src/Events/Types.hs')
-rw-r--r-- | events/src/Events/Types.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/events/src/Events/Types.hs b/events/src/Events/Types.hs index 6a8517b..ec4f62d 100644 --- a/events/src/Events/Types.hs +++ b/events/src/Events/Types.hs | |||
@@ -27,6 +27,7 @@ import Events.Types.NDT (NDT, foldNDT) | |||
27 | 27 | ||
28 | import Control.Monad.State.Lazy | 28 | import Control.Monad.State.Lazy |
29 | import Control.Monad.Reader | 29 | import Control.Monad.Reader |
30 | import Control.Monad.Catch (MonadThrow) | ||
30 | 31 | ||
31 | import Control.Applicative (Alternative(..)) | 32 | import Control.Applicative (Alternative(..)) |
32 | 33 | ||
@@ -80,6 +81,7 @@ newtype Eval m a = Eval { unEval :: StateT ObjCtx (NDT (ReaderT EvalCtx m)) a } | |||
80 | , Alternative | 81 | , Alternative |
81 | , Monad | 82 | , Monad |
82 | , MonadPlus | 83 | , MonadPlus |
84 | , MonadThrow | ||
83 | ) | 85 | ) |
84 | 86 | ||
85 | instance MonadTrans Eval where | 87 | instance MonadTrans Eval where |