formulate interpret as a Sink

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)
 
 import Control.Monad.State.Lazy
 import Control.Monad.Reader
+import Control.Monad.Catch (MonadThrow)
 
 import Control.Applicative (Alternative(..))
 
@@ -80,6 +81,7 @@ newtype Eval m a = Eval { unEval :: StateT ObjCtx (NDT (ReaderT EvalCtx m)) a }
            , Alternative
            , Monad
            , MonadPlus
+           , MonadThrow
            )
 
 instance MonadTrans Eval where