Lint 'return' into 'pure', replace bind operator

1 files changed, 3 insertions, 3 deletions

diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index 7ecd0c6..8398399 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -33,8 +33,8 @@ data Plan = Plan
 main :: Plan -> IO ()
 main Plan {..} =
   Environment.getArgs
-    >>= Docopt.parseArgsOrExit help
-    >>= \args ->
+    +> Docopt.parseArgsOrExit help
+    +> \args ->
       if args `has` Docopt.command "test"
         then runTests test
         else
@@ -49,7 +49,7 @@ runTests tree = do
     Nothing -> do
       hPutStrLn stderr <| Text.pack "no ingredients agreed to run"
       exitFailure
-    Just act -> act >>= \ok -> if ok then exitSuccess else exitFailure
+    Just act -> act +> \ok -> if ok then exitSuccess else exitFailure
 
 has :: Docopt.Arguments -> Docopt.Option -> Bool
 has = Docopt.isPresent