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/Lint.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Biz/Lint.hs')

diff --git a/Biz/Lint.hs b/Biz/Lint.hs
index 2fc8522..d708c45 100644
--- a/Biz/Lint.hs
+++ b/Biz/Lint.hs
@@ -106,10 +106,10 @@ run :: [FilePath] -> IO [Result]
 run paths = do
   cwd <- Directory.getCurrentDirectory
   root <- Environment.getEnv "BIZ_ROOT"
-  concat </ mapM (runOne root cwd) paths
+  concat </ traverse (runOne root cwd) paths
 
 runOne :: FilePath -> FilePath -> FilePath -> IO [Result]
-runOne root cwd path_ = results +> mapM_ printResult >> results
+runOne root cwd path_ = results +> traverse_ printResult >> results
   where
     results =
       sequence <| case Namespace.fromPath root (cwd </> path_) of
-- 
cgit v1.2.3