summaryrefslogtreecommitdiff
path: root/src/Hakyll
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2012-03-20 22:22:08 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2012-03-20 22:22:08 +0100
commit67a42e76d6ce835c26407de60609878a4ad596dc (patch)
treeeb30bc17ccacb5d11a396497a45161306329d72d /src/Hakyll
parentc95d056be874d4f54732bc787522852c95b930e2 (diff)
downloadhakyll-67a42e76d6ce835c26407de60609878a4ad596dc.tar.gz
Cleaner error messages for missing metadata
Closes #58
Diffstat (limited to 'src/Hakyll')
-rw-r--r--src/Hakyll/Web/Page/Read.hs2
1 files changed, 1 insertions, 1 deletions
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')