yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken test case for #115

Browse source
This commit is contained in:
Jasper Van der Jeugt 2013-02-26 19:24:54 +01:00
parent d993ebce58
commit 3b9b11c636
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Hakyll/Core/Provider/Metadata.hs
View file

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