Skip to content

S
sv2v
Commit 6e852451 by Zachary Snow
Options

remove indirection in collectDescriptionsM

parent c7375d90
Showing with 1 additions and 1 deletions
src/Convert/Traverse.hs
...@@ -129,7 +129,7 @@ traverseDescriptionsM = mapM ...@@ -129,7 +129,7 @@ traverseDescriptionsM = mapM
traverseDescriptions :: Mapper Description -> Mapper AST traverseDescriptions :: Mapper Description -> Mapper AST
traverseDescriptions = map traverseDescriptions = map
collectDescriptionsM :: Monad m => CollectorM m Description -> CollectorM m AST collectDescriptionsM :: Monad m => CollectorM m Description -> CollectorM m AST
collectDescriptionsM = collectify traverseDescriptionsM collectDescriptionsM = mapM_
breakGenerate :: ModuleItem -> [ModuleItem] breakGenerate :: ModuleItem -> [ModuleItem]
breakGenerate (Generate genItems) = breakGenerate (Generate genItems) =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment