diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-03-20 22:22:08 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-03-20 22:22:08 +0100 |
| commit | 67a42e76d6ce835c26407de60609878a4ad596dc (patch) | |
| tree | eb30bc17ccacb5d11a396497a45161306329d72d | |
| parent | c95d056be874d4f54732bc787522852c95b930e2 (diff) | |
| download | hakyll-67a42e76d6ce835c26407de60609878a4ad596dc.tar.gz | |
Cleaner error messages for missing metadata
Closes #58
| -rw-r--r-- | src/Hakyll/Web/Page/Read.hs | 2 |
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') |