Merge pull request #115 from pjones/master

Ignore initial whitespace in a continuation line for a metadata field

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
 
 
 --------------------------------------------------------------------------------