luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

use bimapM for mapBothM

This commit is contained in:
Zachary Snow 2021-08-10 09:48:13 -06:00
parent 306d71334b
commit 536eba46b9
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Convert/Traverse.hs
View File

@ -520,10 +520,7 @@ collectLHSExprsM :: Monad m => CollectorM m Expr -> CollectorM m LHS
collectLHSExprsM = collectify traverseLHSExprsM
mapBothM :: Monad m => MapperM m t -> MapperM m (t, t)
mapBothM mapper (a, b) = do
a' <- mapper a
b' <- mapper b
return (a', b')
mapBothM mapper = bimapM mapper mapper
traverseExprsM :: Monad m => MapperM m Expr -> MapperM m ModuleItem
traverseExprsM exprMapper =