From b7b40af6b8bc596cc1c2e04d62104cffc9581a85 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Thu, 10 Dec 2020 18:30:23 -0700 Subject: [PATCH] ensure collector results are evaluated --- src/Convert/Traverse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Convert/Traverse.hs b/src/Convert/Traverse.hs index eae33d0..d2ecb86 100644 --- a/src/Convert/Traverse.hs +++ b/src/Convert/Traverse.hs @@ -120,7 +120,7 @@ unmonad traverser mapper = runIdentity . traverser (return . mapper) collectify :: Monad m => (MapperM m a -> MapperM m b) -> CollectorM m a -> CollectorM m b collectify traverser collector = traverser mapper >=> \_ -> return () - where mapper x = collector x >> return x + where mapper x = collector x >>= \() -> return x traverseDescriptionsM :: Monad m => MapperM m Description -> MapperM m AST traverseDescriptionsM = mapM