diff options
Diffstat (limited to 'Biz/Lint.hs')
| -rw-r--r-- | Biz/Lint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Biz/Lint.hs b/Biz/Lint.hs index af285a7..c971c04 100644 --- a/Biz/Lint.hs +++ b/Biz/Lint.hs @@ -293,7 +293,8 @@ runOne mode (ext, ns's) = results +> traverse printResult lint :: Mode -> Linter -> [Namespace] -> IO Result lint mode linter@Linter {..} ns's = Log.info ["lint", exe, (tshow <| length ns's) <> " files"] - >> Process.readProcessWithExitCode (str exe) args "" /> \case + >> Process.readProcessWithExitCode (str exe) args "" + /> \case (Exit.ExitSuccess, _, _) -> Done linter Good (Exit.ExitFailure _, msg, _) -> case decoder of |