remove indirection in collectDescriptionsM

6e852451 · Zachary Snow · c7375d90 · 6e852451
Commit 6e852451 authored Jun 27, 2021 by Zachary Snow
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

src/Convert/Traverse.hs
+1 -1

No files found.
--- 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) =