diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-11 09:19:23 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-11 09:19:23 +0100 |
commit | e5202ce852dbafd8a54ea0dce2de6fe5ab6ef5b1 (patch) | |
tree | 4840b6cd6691b0c85f2dc7646bb05f63f9f52b09 /src/Text/Hakyll/Page.hs | |
parent | 7c3b55ec27dc76e47eb6175d7e2c32cfadb6dd1b (diff) | |
download | hakyll-e5202ce852dbafd8a54ea0dce2de6fe5ab6ef5b1.tar.gz |
Added some strictness.
Diffstat (limited to 'src/Text/Hakyll/Page.hs')
-rw-r--r-- | src/Text/Hakyll/Page.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |