@@ -24,7 +24,7 @@ inlineSpace = oneOf ['\t', ' '] <?> "space"
2424metadataField :: Parser (String, String)
2525metadataField = do
2626 key <- manyTill alphaNum $ char ':'
27− skipMany1 inlineSpace
27+ skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
2828 value <- manyTill anyChar newline
2929 trailing' <- many trailing
3030 return (key, trim $ value ++ concat trailing')