summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Compiler.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Compiler.hs')
-rw-r--r--src/Hakyll/Core/Compiler.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index 069c873..99c7d97 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -211,12 +211,12 @@ getResourceLBS = getResourceWith resourceLBS
--
getResourceWith :: (ResourceProvider -> Resource -> IO a)
-> Compiler Resource a
-getResourceWith reader = fromJob $ \resource -> CompilerM $ do
- let identifier = unResource resource
+getResourceWith reader = fromJob $ \r -> CompilerM $ do
+ let filePath = unResource r
provider <- compilerResourceProvider <$> ask
- if resourceExists provider resource
- then liftIO $ reader provider resource
- else throwError $ error' identifier
+ if resourceExists provider r
+ then liftIO $ reader provider r
+ else throwError $ error' filePath
where
error' id' = "Hakyll.Core.Compiler.getResourceWith: resource "
++ show id' ++ " not found"