summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll/Render
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-14 20:59:31 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-14 20:59:31 +0100
commita180016488d0fed843f525db824dc0c24cde90ca (patch)
treedbf811421779b6f5ac1272f668a094cebc28aa30 /src/Text/Hakyll/Render
parent4bc34b8a98ffa1e7f3478a596b73c4ab12d9cb1b (diff)
downloadhakyll-a180016488d0fed843f525db824dc0c24cde90ca.tar.gz
Parallel version bump.
Diffstat (limited to 'src/Text/Hakyll/Render')
-rw-r--r--src/Text/Hakyll/Render/Internal.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs
index 379c4c9..e6379bd 100644
--- a/src/Text/Hakyll/Render/Internal.hs
+++ b/src/Text/Hakyll/Render/Internal.hs
@@ -16,7 +16,7 @@ import Control.Monad (liftM)
import Data.List (isPrefixOf, foldl')
import Data.Char (isAlpha)
import Data.Maybe (fromMaybe)
-import Control.Parallel.Strategies (rnf, ($|))
+import Control.Parallel.Strategies (rdeepseq, ($|))
import Text.Hakyll.Renderable
import Text.Hakyll.Page
import Text.Hakyll.File
@@ -57,7 +57,7 @@ pureRenderWith manipulation template context =
let contextIgnoringRoot = M.insert "root" "$root" (manipulation context)
body = regularSubstitute template contextIgnoringRoot
-- Force the body to be rendered.
- in ($|) id rnf (M.insert "body" body context)
+ in ($|) id rdeepseq (M.insert "body" body context)
-- | A pure renderAndConcat function.
pureRenderAndConcatWith :: ContextManipulation