Split out strictifyChunk

src/Heist/Compiled/Internal.hs

@@ -221,12 +221,16 @@ compileTemplate :: Monad n
                 -> IO [Chunk n]
 compileTemplate hs tpath df = do
     !chunks <- runSplice nullNode hs $! runDocumentFile tpath df
-    return $! map strictify chunks
+    return $! map strictifyChunk chunks
   where
     -- This gets overwritten in runDocumentFile
     nullNode = X.TextNode ""
-    strictify (Pure b) = Pure $! fromByteString $! toByteString b
-    strictify c = c
+
+
+strictifyChunk :: Monad m => Chunk m -> Chunk m
+strictifyChunk (Pure b) = Pure $! fromByteString $! toByteString b
+strictifyChunk !c = c
+{-# INLINE strictifyChunk #-}
 
 
 ------------------------------------------------------------------------------

src/Heist/Types.hs

@@ -119,6 +119,7 @@ isPureChunk :: Chunk m -> Bool
 isPureChunk (Pure _) = True
 isPureChunk _ = False
 
+
 ------------------------------------------------------------------------------
 -- | Type alias for attribute splices.  The function parameter is the value of
 -- the bound attribute splice.  The return value is a list of attribute

test/suite/Benchmark.hs

@@ -39,7 +39,7 @@ loadWithCache baseDir = do
 main = do
     let page = "faq"
         pageStr = T.unpack $ decodeUtf8 page
-        dir = "snap-website"
+        dir = "snap-website-nocache"
     hs <- loadWithCache dir
     let !compiledTemplate = fst $! fromJust $! C.renderTemplate hs page
         compiledAction = do
@@ -48,7 +48,7 @@ main = do
     out <- compiledAction
     B.writeFile (pageStr++".out.compiled."++dir) $ out
     putStrLn "Templates loaded"
-    replicateM_ 10000 $ whnfIO compiledAction
+    replicateM_ 1000000 $ whnfIO compiledAction
     putStrLn "done"
 
 justRender dir = do