@@ -97,7 +97,7 @@ metadataField = do
97 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
97 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
98 value <- P.manyTill P.anyChar newline
98 value <- P.manyTill P.anyChar newline
99 trailing' <- P.many trailing
99 trailing' <- P.many trailing
100− return (key, trim $ value ++ intercalate " " trailing')
100+ return (key, trim $ intercalate " " $ value : trailing')
102 trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
102 trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline