Skip to content

S
sv2v
Commit 536eba46 by Zachary Snow
Options

use bimapM for mapBothM

parent 306d7133
Showing with 1 additions and 4 deletions
src/Convert/Traverse.hs
...@@ -520,10 +520,7 @@ collectLHSExprsM :: Monad m => CollectorM m Expr -> CollectorM m LHS ...@@ -520,10 +520,7 @@ collectLHSExprsM :: Monad m => CollectorM m Expr -> CollectorM m LHS
collectLHSExprsM = collectify traverseLHSExprsM collectLHSExprsM = collectify traverseLHSExprsM
mapBothM :: Monad m => MapperM m t -> MapperM m (t, t) mapBothM :: Monad m => MapperM m t -> MapperM m (t, t)
mapBothM mapper (a, b) = do mapBothM mapper = bimapM mapper mapper
a' <- mapper a
b' <- mapper b
return (a', b')
traverseExprsM :: Monad m => MapperM m Expr -> MapperM m ModuleItem traverseExprsM :: Monad m => MapperM m Expr -> MapperM m ModuleItem
traverseExprsM exprMapper = traverseExprsM exprMapper =
......
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