diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-12-22 13:33:00 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-12-22 13:33:28 +0100 |
| commit | 6f5b1c05f4a7b980d5b2dd4006999a6919121f2d (patch) | |
| tree | d919c6683721ed41ca890ef6f39e4a22223e04a2 /src | |
| parent | 3f4de12cc33b32cbf1d29f8dfea38e7029bbe422 (diff) | |
| download | hakyll-6f5b1c05f4a7b980d5b2dd4006999a6919121f2d.tar.gz | |
Fix the exit code behaviour of check
Fixes #496
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Commands.hs | 4 | ||||
| -rw-r--r-- | src/Hakyll/Main.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Commands.hs b/src/Hakyll/Commands.hs index 882fa09..6763fe7 100644 --- a/src/Hakyll/Commands.hs +++ b/src/Hakyll/Commands.hs @@ -50,8 +50,8 @@ build conf logger rules = fst <$> run conf logger rules -------------------------------------------------------------------------------- -- | Run the checker and exit -check :: Configuration -> Logger -> Check.Check -> IO () -check config logger check' = Check.check config logger check' >>= exitWith +check :: Configuration -> Logger -> Check.Check -> IO ExitCode +check = Check.check -------------------------------------------------------------------------------- diff --git a/src/Hakyll/Main.hs b/src/Hakyll/Main.hs index b48743b..d034887 100644 --- a/src/Hakyll/Main.hs +++ b/src/Hakyll/Main.hs @@ -52,7 +52,7 @@ hakyllWithExitCode conf rules = do case args'' of Build -> Commands.build conf logger rules - Check _ -> Commands.check conf logger check' >> ok + Check _ -> Commands.check conf logger check' Clean -> Commands.clean conf logger >> ok Deploy -> Commands.deploy conf Preview p -> Commands.preview conf logger rules p >> ok |