summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/ResourceProvider
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider')
-rw-r--r--src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
index 7343855..2f040b3 100644
--- a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
+++ b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
@@ -16,9 +16,12 @@ import Hakyll.Core.Util.File
--
fileResourceProvider :: IO ResourceProvider
fileResourceProvider = do
+ -- Retrieve a list of identifiers
list <- map parseIdentifier <$> getRecursiveContents False "."
+
+ -- Construct a resource provider
return ResourceProvider
- { resourceList = list
- , resourceString = readFile . toFilePath
- , resourceLazyByteString = LB.readFile . toFilePath
+ { resourceList = map Resource list
+ , resourceString = readFile . toFilePath . unResource
+ , resourceLazyByteString = LB.readFile . toFilePath . unResource
}