From 3b9b11c636787de9d5a0e5e49aff8e1495bd7c04 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 26 Feb 2013 19:24:54 +0100 Subject: Fix broken test case for #115 --- src/Hakyll/Core/Provider/Metadata.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Hakyll/Core/Provider/Metadata.hs b/src/Hakyll/Core/Provider/Metadata.hs index 74e16d4..0d94ad7 100644 --- a/src/Hakyll/Core/Provider/Metadata.hs +++ b/src/Hakyll/Core/Provider/Metadata.hs @@ -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 -- cgit v1.2.3