Fix the exit code behaviour of check

Fixes jaspervdj#496
Zekt · Dec 22, 2016 · 6f5b1c0 · 6f5b1c0
1 parent 3f4de12
commit 6f5b1c0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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