Fix broken test case for #115
commit3b9b11c636787de9d5a0e5e49aff8e1495bd7c04
authorJasper Van der Jeugt <m@jaspervdj.be>
dateTue 26 Feb 2013, 19:24 (14 years ago)
parentd993ebc
src/Hakyll/Core/Provider/Metadata.hs+1−1
@@ -97,7 +97,7 @@ metadataField = do
9797 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
9898 value <- P.manyTill P.anyChar newline
9999 trailing' <- P.many trailing
100− return (key, trim $ value ++ intercalate " " trailing')
100+ return (key, trim $ intercalate " " $ value : trailing')
101101 where
102102 trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
103103