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/Core/Provider | |
| parent | d34d56b10e14e41ad303e6c5d3daef6970af65c2 (diff) | |
| download | hakyll-ea953d3415232ba53aadc061e9005dbe74e3b012.tar.gz | |
Ignore files sooner, small speedup
Diffstat (limited to 'src/Hakyll/Core/Provider')
| -rw-r--r-- | src/Hakyll/Core/Provider/Internal.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Provider/Internal.hs b/src/Hakyll/Core/Provider/Internal.hs index 1360ef5..301c25c 100644 --- a/src/Hakyll/Core/Provider/Internal.hs +++ b/src/Hakyll/Core/Provider/Internal.hs @@ -51,8 +51,7 @@ newProvider :: Store -- ^ Store to use -> FilePath -- ^ Search directory -> IO Provider -- ^ Resulting provider newProvider store ignore directory = do - list <- map fromFilePath . filter (not . ignore) <$> - getRecursiveContents directory + list <- map fromFilePath <$> getRecursiveContents ignore directory cache <- newIORef M.empty return $ Provider directory (S.fromList list) cache store |