diff options
author | Evan Cofsky <evan@tunixman.com> | 2013-05-20 21:17:31 -0700 |
---|---|---|
committer | Evan Cofsky <evan@tunixman.com> | 2013-05-20 21:17:31 -0700 |
commit | c236cda401d401bf5b42d3546ee2f117d5729219 (patch) | |
tree | b8e83ed40ae684748aa66c3c18f04cd97ab4ec07 /src/Hakyll/Main.hs | |
parent | 2430751164c4bc19f1e15419a92a37e7f703794a (diff) | |
download | hakyll-c236cda401d401bf5b42d3546ee2f117d5729219.tar.gz |
Have Build and Rebuild exit with a status to the shell.
Diffstat (limited to 'src/Hakyll/Main.hs')
-rw-r--r-- | src/Hakyll/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Main.hs b/src/Hakyll/Main.hs index 527548d..0f0d340 100644 --- a/src/Hakyll/Main.hs +++ b/src/Hakyll/Main.hs @@ -13,7 +13,7 @@ import System.Console.CmdArgs import qualified System.Console.CmdArgs.Explicit as CA import System.Environment (getProgName) import System.IO.Unsafe (unsafePerformIO) - +import System.Exit (exitWith) -------------------------------------------------------------------------------- import qualified Hakyll.Check as Check @@ -41,13 +41,13 @@ hakyllWith conf rules = do if internal_links args' then Check.InternalLinks else Check.All case args' of - Build _ -> Commands.build conf verbosity' rules + Build _ -> Commands.build conf verbosity' rules >>= exitWith Check _ _ -> Commands.check conf verbosity' check' Clean _ -> Commands.clean conf Deploy _ -> Commands.deploy conf Help _ -> showHelp Preview _ p -> Commands.preview conf verbosity' rules p - Rebuild _ -> Commands.rebuild conf verbosity' rules + Rebuild _ -> Commands.rebuild conf verbosity' rules >>= exitWith Server _ _ -> Commands.server conf (port args') |