diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 14:48:16 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 14:48:16 +0100 |
commit | a26f84dab5a49ce0fa00c7a0acfe84059451db5b (patch) | |
tree | 90884deb9f3793f39dd699866a9313dd24ccc609 /src/Text/Hakyll/Render/Internal.hs | |
parent | ecd00b386e2848cab19c16afdcaeae3133f39569 (diff) | |
download | hakyll-a26f84dab5a49ce0fa00c7a0acfe84059451db5b.tar.gz |
Added pure renderAndConcat function.
Diffstat (limited to 'src/Text/Hakyll/Render/Internal.hs')
-rw-r--r-- | src/Text/Hakyll/Render/Internal.hs | 13 |
1 files changed, 13 insertions, 0 deletions
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] |