From 67a42e76d6ce835c26407de60609878a4ad596dc Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Tue, 20 Mar 2012 22:22:08 +0100
Subject: Cleaner error messages for missing metadata

Closes #58
---
 src/Hakyll/Web/Page/Read.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Hakyll/Web/Page/Read.hs b/src/Hakyll/Web/Page/Read.hs
index bd77789..1c3eab7 100644
--- a/src/Hakyll/Web/Page/Read.hs
+++ b/src/Hakyll/Web/Page/Read.hs
@@ -24,7 +24,7 @@ inlineSpace = oneOf ['\t', ' '] <?> "space"
 metadataField :: Parser (String, String)
 metadataField = do
     key <- manyTill alphaNum $ char ':'
-    skipMany1 inlineSpace
+    skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
     value <- manyTill anyChar newline
     trailing' <- many trailing
     return (key, trim $ value ++ concat trailing')
-- 
cgit v1.2.3