diff options
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider')
| -rw-r--r-- | src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs | 9 |
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 } |
