1 files changed, 1 insertions, 1 deletions

diff --git a/events/src/Events/Eval.hs b/events/src/Events/Eval.hs
index 280c577..800b38d 100644
--- a/events/src/Events/Eval.hs
+++ b/events/src/Events/Eval.hs
@@ -17,7 +17,7 @@ import Control.Lens
 import Data.Ord (Ordering(..))
 
 evaluate :: MonadFix m => (Maybe Object -> ReaderT EvalCtx m Bool) -> Eval m () -> m [Object]
-evaluate predicate x = catMaybes <$> mfix x'
+evaluate predicate (unEval -> x) = catMaybes <$> mfix x'
   where
     x' = runReaderT (foldNDT predicate (preview objCtx <$> execStateT x def)) . flip (set ctxEvents) def . catMaybes