cleanup

1 files changed, 16 insertions, 0 deletions

diff --git a/events/src/Events/Eval.hs b/events/src/Events/Eval.hs
new file mode 100644
index 0000000..c5bc134
--- /dev/null
+++ b/events/src/Events/Eval.hs
@@ -0,0 +1,16 @@
+module Events.Eval
+  ( evaluate
+  ) where
+
+import Control.Monad.Fix (MonadFix(mfix))
+
+import Events.Types
+
+import Data.Maybe (catMaybes)
+
+import Control.Lens
+
+evaluate :: MonadFix m => (Maybe Object -> StateT EvalCtx m Bool) -> Eval m () -> m [Object]
+evaluate predicate x = catMaybes <$> mfix x'
+  where
+    x' = evalStateT (foldNDT predicate (preview objCtx <$> execStateT x def)) . flip (set ctxEvents) def . catMaybes