diff options
| author | Andres Loeh <andres@well-typed.com> | 2014-02-11 11:07:43 +0100 |
|---|---|---|
| committer | Andres Loeh <andres@well-typed.com> | 2014-02-11 11:07:43 +0100 |
| commit | 21585c18f320faf994b8ebf4ad1cccb302096eec (patch) | |
| tree | cd07b7e909a239082178a093d6e303f6b8d7debd | |
| parent | 5ab965571421d791d5f0290c374db7e4432532d0 (diff) | |
| download | hakyll-21585c18f320faf994b8ebf4ad1cccb302096eec.tar.gz | |
hakyll check: return exit code of 0 on success
The old test returns an exit code of 1 whenever the number of
errors is >= 0, which should always be the case. The fix replaces
this with a test whether the number of errors is strictly > 0.
| -rw-r--r-- | src/Hakyll/Check.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index 6d345de..cfd30e4 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -57,7 +57,7 @@ data Check = All | InternalLinks check :: Configuration -> Verbosity -> Check -> IO ExitCode check config verbosity check' = do ((), write) <- runChecker checkDestination config verbosity check' - return $ if checkerFaulty write >= 0 then ExitFailure 1 else ExitSuccess + return $ if checkerFaulty write > 0 then ExitFailure 1 else ExitSuccess -------------------------------------------------------------------------------- |