From f3c83030b9b0e186f283523af08ca886de33783c Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 14 Jan 2010 21:01:18 +0100 Subject: Parallel version bump. Conflicts: src/Text/Hakyll/Page.hs --- src/Text/Hakyll/Page.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Hakyll/Page.hs') 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 -- cgit v1.2.3