From df8e221aef147ded6e8fe7331619913cc2f51513 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sat, 8 Jan 2011 09:09:11 +0100
Subject: Fully qualified errors

---
 src/Hakyll/Web/Pandoc.hs            | 2 +-
 src/Hakyll/Web/Template/Internal.hs | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Hakyll/Web')

diff --git a/src/Hakyll/Web/Pandoc.hs b/src/Hakyll/Web/Pandoc.hs
index 7fecdc4..2656212 100644
--- a/src/Hakyll/Web/Pandoc.hs
+++ b/src/Hakyll/Web/Pandoc.hs
@@ -50,7 +50,7 @@ readPandocWith state fileType' = case fileType' of
     Markdown          -> P.readMarkdown state
     Rst               -> P.readRST state
     t                 -> error $
-        "readPandoc: I don't know how to read " ++ show t
+        "Hakyll.Web.readPandocWith: I don't know how to read " ++ show t
 
 -- | Write a document (as HTML) using pandoc, with the default options
 --
diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs
index be10881..096c928 100644
--- a/src/Hakyll/Web/Template/Internal.hs
+++ b/src/Hakyll/Web/Template/Internal.hs
@@ -41,4 +41,5 @@ instance Binary TemplateElement where
             0 -> Chunk      <$> get
             1 -> Identifier <$> get
             2 -> Escaped    <$> get
-            _ -> error "Error reading cached template"
+            _ -> error $  "Hakyll.Web.Template.Internal: "
+                       ++ "Error reading cached template"
-- 
cgit v1.2.3