diff options
| author | Ben Sima <ben@bsima.me> | 2021-02-05 22:16:49 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-02-05 22:16:49 -0500 |
| commit | fb9d9c6a05e89bfe77cf7fe0735f4ebaeb1e88b4 (patch) | |
| tree | 562b6709d485530c581706a4957fd5225f2b99dd /Biz/Bild.hs | |
| parent | eaf2f30c93080ad9a00246885c3321baa815f780 (diff) | |
Prefer traverse over mapM
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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") |