diff options
Diffstat (limited to 'src/Text/Hakyll/Render.hs')
| -rw-r--r-- | src/Text/Hakyll/Render.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs index caf0221..58a8d4d 100644 --- a/src/Text/Hakyll/Render.hs +++ b/src/Text/Hakyll/Render.hs @@ -25,6 +25,8 @@ import Text.Hakyll.Renderable import Text.Hakyll.File import Text.Hakyll.CompressCSS +import Control.Parallel.Strategies (rnf, ($|)) + -- | Execute an IO action only when the cache is invalid. depends :: FilePath -- ^ File to be rendered or created. -> [FilePath] -- ^ Files the render depends on. @@ -75,12 +77,13 @@ renderWith :: Renderable a renderWith manipulation templatePath renderable = do handle <- openFile templatePath ReadMode templateString <- hGetContents handle - seq templateString $ hClose handle context <- liftM manipulation $ toContext renderable -- Ignore $root when substituting here. We will only replace that in the -- final render (just before writing). let contextIgnoringRoot = M.insert "root" "$root" context body = regularSubstitute templateString contextIgnoringRoot + -- Force the body to be rendered before closing the handle. + seq (($|) id rnf body) $ hClose handle return $ fromContext (M.insert "body" body context) -- | Render each renderable with the given template, then concatenate the |