From 0152a15b1e625b447ccb9d8a7956d026b401c31a Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 12 Jan 2010 08:40:44 +0100
Subject: Some more strictness.

---
 src/Text/Hakyll/Render.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

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
-- 
cgit v1.2.3