From e5202ce852dbafd8a54ea0dce2de6fe5ab6ef5b1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 11 Jan 2010 09:19:23 +0100
Subject: Added some strictness.

---
 src/Text/Hakyll/Page.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index f70d898..c5ddc3a 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -10,6 +10,8 @@ import qualified Data.Map as M
 import qualified Data.List as L
 import Data.Maybe (fromMaybe)
 
+import Control.Parallel.Strategies (rnf, ($|))
+
 import System.FilePath (FilePath, takeExtension)
 import System.IO
 
@@ -110,13 +112,14 @@ readPage pagePath = do
 
     -- Render file
     let rendered = (renderFunction $ takeExtension path) body
-    seq rendered $ hClose handle
-    let page = fromContext $ M.fromList $
+        page = fromContext $ M.fromList $
             [ ("body", rendered)
             , ("url", url)
             , ("path", pagePath)
             ] ++ context
 
+    seq (($|) id rnf rendered) $ hClose handle
+
     -- Cache if needed
     if getFromCache then return () else cachePage page
     return page
-- 
cgit v1.2.3