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/Init.hs | |
parent | d34d56b10e14e41ad303e6c5d3daef6970af65c2 (diff) | |
download | hakyll-ea953d3415232ba53aadc061e9005dbe74e3b012.tar.gz |
Ignore files sooner, small speedup
Diffstat (limited to 'src/Hakyll/Init.hs')
-rw-r--r-- | src/Hakyll/Init.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Init.hs b/src/Hakyll/Init.hs index 3e2969e..2a92340 100644 --- a/src/Hakyll/Init.hs +++ b/src/Hakyll/Init.hs @@ -23,7 +23,7 @@ main = do progName <- getProgName args <- getArgs srcDir <- getDataFileName "example" - files <- getRecursiveContents srcDir + files <- getRecursiveContents (const False) srcDir case args of [dstDir] -> forM_ files $ \file -> do |