diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-29 10:41:05 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-29 10:41:05 +0100 |
| commit | 5b1a675b94deef7741d2fa3f4c619ce3634bfa4d (patch) | |
| tree | 7dc418cfcfec64f831e472a23f6e83c6d99d0dab /src/Hakyll/Main.hs | |
| parent | 720c92ab1ef628c3c9545fa022ed546c60d9d72a (diff) | |
| download | hakyll-5b1a675b94deef7741d2fa3f4c619ce3634bfa4d.tar.gz | |
Draft tool to check internal links
Diffstat (limited to 'src/Hakyll/Main.hs')
| -rw-r--r-- | src/Hakyll/Main.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Hakyll/Main.hs b/src/Hakyll/Main.hs index 3ead225..edd923a 100644 --- a/src/Hakyll/Main.hs +++ b/src/Hakyll/Main.hs @@ -16,6 +16,7 @@ import System.Process (system) -------------------------------------------------------------------------------- +import Hakyll.Check import Hakyll.Core.Configuration import Hakyll.Core.Rules import Hakyll.Core.Runtime @@ -47,6 +48,7 @@ hakyllWith conf rules = do args <- getArgs case args of ["build"] -> build conf rules + ["check"] -> check conf ["clean"] -> clean conf ["help"] -> help ["preview"] -> preview conf rules 8000 @@ -67,6 +69,12 @@ build conf rules = do -------------------------------------------------------------------------------- +-- | Run the checker +check :: Configuration -> IO () +check = runCheck + + +-------------------------------------------------------------------------------- -- | Remove the output directories clean :: Configuration -> IO () clean conf = do |