From ea953d3415232ba53aadc061e9005dbe74e3b012 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 6 Feb 2013 22:40:18 +0100 Subject: Ignore files sooner, small speedup --- src/Hakyll/Core/Provider/Internal.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Hakyll/Core/Provider') 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 -- cgit v1.2.3