Resource = Identifier with an exists invariant

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
         }