parent
c95d056be8
commit
67a42e76d6
1 changed files with 1 additions and 1 deletions
|
@ -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')
|
||||
|
|
Loading…
Reference in a new issue