From 6f5b1c05f4a7b980d5b2dd4006999a6919121f2d Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 22 Dec 2016 13:33:00 +0100 Subject: Fix the exit code behaviour of check Fixes #496 --- src/Hakyll/Commands.hs | 4 ++-- src/Hakyll/Main.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3