From 536eba46b9b31e86f58e7a2dbebe5d557265ed71 Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Tue, 10 Aug 2021 09:48:13 -0600
Subject: [PATCH] use bimapM for mapBothM

---
 src/Convert/Traverse.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/Convert/Traverse.hs b/src/Convert/Traverse.hs
index 2aab7f3..fde24fa 100644
--- a/src/Convert/Traverse.hs
+++ b/src/Convert/Traverse.hs
@@ -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 =