summaryrefslogtreecommitdiff
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
parent4bc34b8a98ffa1e7f3478a596b73c4ab12d9cb1b (diff)
downloadhakyll-a180016488d0fed843f525db824dc0c24cde90ca.tar.gz
Parallel version bump.
-rw-r--r--hakyll.cabal4
-rw-r--r--src/Text/Hakyll/Page.hs4
-rw-r--r--src/Text/Hakyll/Render/Internal.hs4
3 files changed, 6 insertions, 6 deletions
diff --git a/hakyll.cabal b/hakyll.cabal
index 3e5cef0..bdba45d 100644
--- a/hakyll.cabal
+++ b/hakyll.cabal
@@ -1,5 +1,5 @@
Name: hakyll
-Version: 1.0
+Version: 1.0.1
Synopsis: A simple static site generator library.
Description:
@@ -34,7 +34,7 @@ library
mtl >= 1.1,
old-locale >= 1,
time >= 1,
- parallel >= 1
+ parallel >= 2
exposed-modules: Text.Hakyll
Text.Hakyll.Hakyll
Text.Hakyll.Render
diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index cbb881f..6c73ff3 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 Control.Monad.Reader (liftIO)
import System.FilePath (FilePath, takeExtension)
@@ -125,7 +125,7 @@ readPage pagePath = do
, ("path", pagePath)
] ++ metaData
- seq (($|) id rnf rendered) $ liftIO $ hClose handle
+ seq (($|) id rdeepseq rendered) $ liftIO $ 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 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