@@ -181,8 +181,14 @@ getRouteFor = fromJob $ \identifier -> CompilerM $ do
182getResourceString :: Compiler Resource String
182getResourceString :: Compiler Resource String
183getResourceString = fromJob $ \resource -> CompilerM $ do
183getResourceString = fromJob $ \resource -> CompilerM $ do
184+ let identifier = unResource resource
184 provider <- compilerResourceProvider <$> ask
185 provider <- compilerResourceProvider <$> ask
186+ if resourceExists provider identifier
185− liftIO $ resourceString provider resource
187+ then liftIO $ resourceString provider resource
188+ else throwError $ error' identifier
190+ error' id' = "Hakyll.Core.Compiler.getResourceString: resource "
191+ ++ show id' ++ " not found"
187-- | Auxiliary: get a dependency
193-- | Auxiliary: get a dependency