Cleaner error messages for missing metadata

Closes #58
This commit is contained in:
Jasper Van der Jeugt 2012-03-20 22:22:08 +01:00
parent c95d056be8
commit 67a42e76d6

View file

@ -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')