From 97bde0359940a1f6fe2cdbc4bffb9bcaec2a0e54 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 27 May 2016 23:41:44 +0200 Subject: efficiency --- events/src/Events/Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'events/src/Events/Types.hs') 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 -- cgit v1.2.3