@@ -9,6 +9,7 @@ module Hakyll.Core.Provider.Metadata
9import Control.Applicative
9import Control.Applicative
10import Control.Arrow (second)
10import Control.Arrow (second)
11import qualified Data.ByteString.Char8 as BC
11import qualified Data.ByteString.Char8 as BC
12+import Data.List (intercalate)
12import qualified Data.Map as M
13import qualified Data.Map as M
13import System.IO as IO
14import System.IO as IO
14import Text.Parsec ((<?>))
15import Text.Parsec ((<?>))
@@ -94,9 +95,9 @@ metadataField = do
94 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
95 P.skipMany1 inlineSpace <?> "space followed by metadata for: " ++ key
95 value <- P.manyTill P.anyChar newline
96 value <- P.manyTill P.anyChar newline
96 trailing' <- P.many trailing
97 trailing' <- P.many trailing
97− return (key, trim $ value ++ concat trailing')
98+ return (key, trim $ value ++ intercalate " " trailing')
99− trailing = (++) <$> P.many1 inlineSpace <*> P.manyTill P.anyChar newline
100+ trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
102--------------------------------------------------------------------------------
103--------------------------------------------------------------------------------