Fix the exit code behaviour of check
Fixes #496
commit6f5b1c05f4a7b980d5b2dd4006999a6919121f2d
authorJasper Van der Jeugt <m@jaspervdj.be>
dateThu 22 Dec 2016, 13:33 (10 years ago)
parent3f4de12
src/Hakyll/Commands.hs+2−2
@@ -50,8 +50,8 @@ build conf logger rules = fst <$> run conf logger rules
5050
5151--------------------------------------------------------------------------------
5252-- | Run the checker and exit
53−check :: Configuration -> Logger -> Check.Check -> IO ()
54−check config logger check' = Check.check config logger check' >>= exitWith
53+check :: Configuration -> Logger -> Check.Check -> IO ExitCode
54+check = Check.check
5555
5656
5757--------------------------------------------------------------------------------
src/Hakyll/Main.hs+1−1
@@ -52,7 +52,7 @@ hakyllWithExitCode conf rules = do
5252
5353 case args'' of
5454 Build -> Commands.build conf logger rules
55− Check _ -> Commands.check conf logger check' >> ok
55+ Check _ -> Commands.check conf logger check'
5656 Clean -> Commands.clean conf logger >> ok
5757 Deploy -> Commands.deploy conf
5858 Preview p -> Commands.preview conf logger rules p >> ok