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