diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-06 22:40:18 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-06 22:40:18 +0100 |
commit | ea953d3415232ba53aadc061e9005dbe74e3b012 (patch) | |
tree | 10ea81bb0ddefd356d3ff84b25a5d49c8bcc5bd0 /src/Hakyll/Check.hs | |
parent | d34d56b10e14e41ad303e6c5d3daef6970af65c2 (diff) | |
download | hakyll-ea953d3415232ba53aadc061e9005dbe74e3b012.tar.gz |
Ignore files sooner, small speedup
Diffstat (limited to 'src/Hakyll/Check.hs')
-rw-r--r-- | src/Hakyll/Check.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index 6b9918b..5f8f4f7 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -94,7 +94,8 @@ runChecker checker config verbosity check' = do checkDestination :: Checker () checkDestination = do config <- checkerConfig <$> ask - files <- liftIO $ getRecursiveContents (destinationDirectory config) + files <- liftIO $ + getRecursiveContents (const False) (destinationDirectory config) let htmls = [ destinationDirectory config </> file |