c236cda · hakyll · git.iko.soy

git.iko.soy/hakyll

on master help sign in

Have Build and Rebuild exit with a status to the shell.

c236cdaEvan Cofsky13 years ago

src/Hakyll/Commands.hs+7−11

compare with master

unifiedsplit

@@ -13,7 +13,7 @@ module Hakyll.Commands

15--------------------------------------------------------------------------------

16−import System.Exit (exitWith)

16+import System.Exit (exitWith, ExitCode)

19--------------------------------------------------------------------------------

@@ -25,7 +25,6 @@ import Hakyll.Core.Rules.Internal

25import Hakyll.Core.Runtime

26import Hakyll.Core.Util.File

28−

29--------------------------------------------------------------------------------

28--------------------------------------------------------------------------------

30#ifdef PREVIEW_SERVER

29#ifdef PREVIEW_SERVER

31import Hakyll.Preview.Poll

30import Hakyll.Preview.Poll

@@ -35,11 +34,10 @@ import Hakyll.Preview.Server

36--------------------------------------------------------------------------------

35--------------------------------------------------------------------------------

37-- | Build the site

36-- | Build the site

38−build :: Configuration -> Verbosity -> Rules a -> IO ()

37+build :: Configuration -> Verbosity -> Rules a -> IO (ExitCode)

39build conf verbosity rules = do

38build conf verbosity rules = do

40− _ <- run conf verbosity rules

39+ (ec, _) <- run conf verbosity rules

41− return ()

40+ return ec

42−

44--------------------------------------------------------------------------------

42--------------------------------------------------------------------------------

45-- | Run the checker and exit

43-- | Run the checker and exit

@@ -78,11 +76,9 @@ preview _ _ _ _ = previewServerDisabled

79--------------------------------------------------------------------------------

77--------------------------------------------------------------------------------

80-- | Rebuild the site

78-- | Rebuild the site

81−rebuild :: Configuration -> Verbosity -> Rules a -> IO ()

79+rebuild :: Configuration -> Verbosity -> Rules a -> IO (ExitCode)

82−rebuild conf verbosity rules = do

80+rebuild conf verbosity rules =

83− clean conf

84− build conf verbosity rules

81+ clean conf >> build conf verbosity rules

85−

87--------------------------------------------------------------------------------

83--------------------------------------------------------------------------------

88-- | Start a server

84-- | Start a server

src/Hakyll/Main.hs+3−3

@@ -13,7 +13,7 @@ import System.Console.CmdArgs

13import qualified System.Console.CmdArgs.Explicit as CA

14import System.Environment (getProgName)

15import System.IO.Unsafe (unsafePerformIO)

16−

16+import System.Exit (exitWith)

18--------------------------------------------------------------------------------

19import qualified Hakyll.Check as Check

@@ -41,13 +41,13 @@ hakyllWith conf rules = do

41 if internal_links args' then Check.InternalLinks else Check.All

43 case args' of

44− Build _ -> Commands.build conf verbosity' rules

44+ Build _ -> Commands.build conf verbosity' rules >>= exitWith

45 Check _ _ -> Commands.check conf verbosity' check'

46 Clean _ -> Commands.clean conf

47 Deploy _ -> Commands.deploy conf

48 Help _ -> showHelp

49 Preview _ p -> Commands.preview conf verbosity' rules p

50− Rebuild _ -> Commands.rebuild conf verbosity' rules

50+ Rebuild _ -> Commands.rebuild conf verbosity' rules >>= exitWith

51 Server _ _ -> Commands.server conf (port args')