From 6e85245118d1a0584c94ed38178d65d10936bbb2 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sun, 27 Jun 2021 17:20:57 -0600 Subject: [PATCH] remove indirection in collectDescriptionsM --- 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 25b19e8..bb3b9bc 100644 --- a/src/Convert/Traverse.hs +++ b/src/Convert/Traverse.hs @@ -129,7 +129,7 @@ traverseDescriptionsM = mapM traverseDescriptions :: Mapper Description -> Mapper AST traverseDescriptions = map collectDescriptionsM :: Monad m => CollectorM m Description -> CollectorM m AST -collectDescriptionsM = collectify traverseDescriptionsM +collectDescriptionsM = mapM_ breakGenerate :: ModuleItem -> [ModuleItem] breakGenerate (Generate genItems) =