1 files changed, 1 insertions, 1 deletions

diff --git a/events/src/Events/Types.hs b/events/src/Events/Types.hs
index 3414b68..22faf94 100644
--- a/events/src/Events/Types.hs
+++ b/events/src/Events/Types.hs
@@ -78,7 +78,7 @@ type Eval m a = StateT ObjCtx (ListT (StateT EvalCtx m)) a
 evaluate :: MonadFix m => Eval m () -> m [Object]
 evaluate x = catMaybes <$> mfix x'
   where
-    x' = evalStateT (ListT.toList (objCtx <$> execStateT x def)) . flip (set ctxEvents) def . catMaybes
+    x' = evalStateT (ListT.toReverseList (objCtx <$> execStateT x def)) . flip (set ctxEvents) def . catMaybes
 
 instance MonadState s m => MonadState s (ListT m) where
   get = lift get