Fix broken test case for #115
This commit is contained in:
parent
d993ebce58
commit
3b9b11c636
1 changed files with 1 additions and 1 deletions
|
@ -97,7 +97,7 @@ metadataField = do
|
|||
P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
|
||||
value <- P.manyTill P.anyChar newline
|
||||
trailing' <- P.many trailing
|
||||
return (key, trim $ value ++ intercalate " " trailing')
|
||||
return (key, trim $ intercalate " " $ value : trailing')
|
||||
where
|
||||
trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
|
||||
|
||||
|
|
Loading…
Reference in a new issue