From fb9d9c6a05e89bfe77cf7fe0735f4ebaeb1e88b4 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 5 Feb 2021 22:16:49 -0500
Subject: Prefer traverse over mapM

---
 Biz/Bild.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Biz/Bild.hs')

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index 9da11ac..39d8aaf 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -159,11 +159,11 @@ main = Cli.main <| Cli.Plan help move test pure
 move :: Cli.Arguments -> IO ()
 move args =
   IO.hSetBuffering stdout IO.NoBuffering
-    >> mapM getNamespace (Cli.getAllArgs args (Cli.argument "target"))
+    >> traverse getNamespace (Cli.getAllArgs args (Cli.argument "target"))
     /> catMaybes
     /> filter isBuildableNs
-    +> mapM analyze
-    +> mapM
+    +> traverse analyze
+    +> traverse
       ( build
           (args `Cli.has` Cli.longOption "test")
           (args `Cli.has` Cli.longOption "loud")
-- 
cgit v1.2.3