diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-29 02:37:14 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-29 03:22:01 -0500 |
| commit | b289dee25ad8ce4c2622fadb2f4c31fb90914b39 (patch) | |
| tree | 5511da780cdabbb98c8fbe01f03997d3263e7880 /Biz/Bild.hs | |
| parent | 42c7614b6a4bd7504e9bf31e0882db58b85857bc (diff) | |
Lint 'return' into 'pure', replace bind operator
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 = |