From b9bc7f90e1d1f1e4d4fd41870b4ed487636df7db Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 7 Mar 2011 11:04:01 +0100
Subject: Throw nice error in getResourceString

---
 src/Hakyll/Core/Compiler.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/Hakyll/Core/Compiler.hs')

diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index 79ebb5e..5fb7b01 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -181,8 +181,14 @@ getRouteFor = fromJob $ \identifier -> CompilerM $ do
 --
 getResourceString :: Compiler Resource String
 getResourceString = fromJob $ \resource -> CompilerM $ do
+    let identifier = unResource resource
     provider <- compilerResourceProvider <$> ask
-    liftIO $ resourceString provider resource
+    if resourceExists provider identifier
+        then liftIO $ resourceString provider resource
+        else throwError $ error' identifier
+  where
+    error' id' =  "Hakyll.Core.Compiler.getResourceString: resource "
+               ++ show id' ++ " not found"
 
 -- | Auxiliary: get a dependency
 --
-- 
cgit v1.2.3