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