From b289dee25ad8ce4c2622fadb2f4c31fb90914b39 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 29 Jan 2021 02:37:14 -0500
Subject: Lint 'return' into 'pure', replace bind operator

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

(limited to 'Biz/Bild.hs')

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index 8a7de48..b621797 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -151,7 +151,7 @@ main = Cli.main <| Cli.Plan help move test
         "Biz.Bild"
         [ Test.unit "can bild bild" <| do
             let ns = Namespace ["Biz", "Bild"] Namespace.Hs
-            analyze ns >>= build False False >>= \case
+            analyze ns +> build False False +> \case
               Exit.ExitFailure _ -> Test.assertFailure "can't bild bild"
               _ -> pure ()
         ]
@@ -162,13 +162,13 @@ move args =
     >> mapM getNamespace (Cli.getAllArgs args (Cli.argument "target"))
     /> catMaybes
     /> filter isBuildableNs
-    >>= mapM analyze
-    >>= mapM
+    +> mapM analyze
+    +> mapM
       ( build
           (args `Cli.has` Cli.longOption "test")
           (args `Cli.has` Cli.longOption "loud")
       )
-    >>= exitSummary
+    +> exitSummary
 
 help :: Cli.Docopt
 help =
-- 
cgit v1.2.3