summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core')
-rw-r--r--src/Hakyll/Core/Provider/Metadata.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Provider/Metadata.hs b/src/Hakyll/Core/Provider/Metadata.hs
index 276483b..ee07e9f 100644
--- a/src/Hakyll/Core/Provider/Metadata.hs
+++ b/src/Hakyll/Core/Provider/Metadata.hs
@@ -9,6 +9,7 @@ module Hakyll.Core.Provider.Metadata
import Control.Applicative
import Control.Arrow (second)
import qualified Data.ByteString.Char8 as BC
+import Data.List (intercalate)
import qualified Data.Map as M
import System.IO as IO
import Text.Parsec ((<?>))
@@ -94,9 +95,9 @@ 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 ++ concat trailing')
+ return (key, trim $ value ++ intercalate " " trailing')
where
- trailing = (++) <$> P.many1 inlineSpace <*> P.manyTill P.anyChar newline
+ trailing = P.many1 inlineSpace *> P.manyTill P.anyChar newline
--------------------------------------------------------------------------------