diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-26 19:24:54 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-26 19:24:54 +0100 |
| commit | 3b9b11c636787de9d5a0e5e49aff8e1495bd7c04 (patch) | |
| tree | 70fe6d3936000aeb151cac27d53bbada2d68be47 | |
| parent | d993ebce58acee1e53ee5693743463c5c402919e (diff) | |
| download | hakyll-3b9b11c636787de9d5a0e5e49aff8e1495bd7c04.tar.gz | |
Fix broken test case for #115
| -rw-r--r-- | src/Hakyll/Core/Provider/Metadata.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |