summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs')
-rw-r--r--src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
index 2f040b3..0d89b21 100644
--- a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
+++ b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
@@ -11,13 +11,15 @@ import qualified Data.ByteString.Lazy as LB
import Hakyll.Core.ResourceProvider
import Hakyll.Core.Identifier
import Hakyll.Core.Util.File
+import Hakyll.Core.Configuration
-- | Create a filesystem-based 'ResourceProvider'
--
-fileResourceProvider :: IO ResourceProvider
-fileResourceProvider = do
+fileResourceProvider :: HakyllConfiguration -> IO ResourceProvider
+fileResourceProvider configuration = do
-- Retrieve a list of identifiers
- list <- map parseIdentifier <$> getRecursiveContents False "."
+ list <- map parseIdentifier . filter (not . ignoreFile configuration) <$>
+ getRecursiveContents False "."
-- Construct a resource provider
return ResourceProvider