From a26f84dab5a49ce0fa00c7a0acfe84059451db5b Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 12 Jan 2010 14:48:16 +0100
Subject: Added pure renderAndConcat function.

---
 src/Text/Hakyll/Render/Internal.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/Text/Hakyll/Render')

diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs
index eca15a0..3b9bfbb 100644
--- a/src/Text/Hakyll/Render/Internal.hs
+++ b/src/Text/Hakyll/Render/Internal.hs
@@ -4,6 +4,7 @@ module Text.Hakyll.Render.Internal
     , regularSubstitute
     , finalSubstitute
     , pureRenderWith
+    , pureRenderAndConcatWith
     , pureRenderChainWith
     , writePage
     ) where
@@ -55,6 +56,18 @@ pureRenderWith manipulation template context =
     -- Force the body to be rendered.
     in ($|) id rnf (M.insert "body" body context)
 
+-- | A pure renderAndConcat function.
+pureRenderAndConcatWith :: ContextManipulation
+                        -> String -- ^ Template to use.
+                        -> [Context] -- ^ Different renderables.
+                        -> String
+pureRenderAndConcatWith manipulation template contexts =
+    foldl' renderAndConcat [] contexts
+  where
+    renderAndConcat chunk context =
+        let rendered = pureRenderWith manipulation template context
+        in chunk ++ fromMaybe "" (M.lookup "body" rendered)
+
 -- | A pure renderChain function.
 pureRenderChainWith :: ContextManipulation
                     -> [String]
-- 
cgit v1.2.3