@@ -9,6 +9,7 @@ module Hakyll.Core.Provider.Metadata
99import Control.Applicative
1010import Control.Arrow (second)
1111import qualified Data.ByteString.Char8 as BC
12+import Data.List (intercalate)
1213import qualified Data.Map as M
1314import System.IO as IO
1415import Text.Parsec ((<?>))
@@ -94,9 +95,9 @@ metadataField = do
9495 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
9596 value <- P.manyTill P.anyChar newline
9697 trailing' <- P.many trailing
97− return (key, trim $ value ++ concat trailing')
98+ return (key, trim $ value ++ intercalate " " trailing')
9899 where
99− trailing = (++) <$> P.many1 inlineSpace <*> P.manyTill P.anyChar newline
100+ trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
100101
101102
102103--------------------------------------------------------------------------------