summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-14 21:01:18 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-14 21:01:18 +0100
commitf3c83030b9b0e186f283523af08ca886de33783c (patch)
treebe219218e85a7e2572ae7eea92298709dbc67ae4 /src/Text
parent332f2f95cdb9c72e01a55eaf46c0b08bcf37d7e9 (diff)
downloadhakyll-f3c83030b9b0e186f283523af08ca886de33783c.tar.gz
Parallel version bump.
Conflicts: src/Text/Hakyll/Page.hs
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Hakyll/Page.hs4
-rw-r--r--src/Text/Hakyll/Render/Internal.hs4
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 0b7776b..6788240 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -10,7 +10,7 @@ import qualified Data.Map as M
import qualified Data.List as L
import Data.Maybe (fromMaybe)
-import Control.Parallel.Strategies (rnf, ($|))
+import Control.Parallel.Strategies (rdeepseq, ($|))
import System.FilePath (FilePath, takeExtension)
import System.IO
@@ -123,7 +123,7 @@ readPage pagePath = do
, ("path", pagePath)
] ++ metaData
- seq (($|) id rnf rendered) $ hClose handle
+ seq (($|) id rdeepseq rendered) $ hClose handle
-- Cache if needed
if getFromCache then return () else cachePage page
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs
index 3b9bfbb..8679dfb 100644
--- a/src/Text/Hakyll/Render/Internal.hs
+++ b/src/Text/Hakyll/Render/Internal.hs
@@ -14,7 +14,7 @@ import Text.Hakyll.Context (Context, ContextManipulation)
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
@@ -54,7 +54,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