-- | Create a large HTML table and dump it to a handle
--
{-# LANGUAGE OverloadedStrings #-}
module Data.Text.Benchmarks.HtmlCombinator
( benchmark
) where
import Criterion (Benchmark, bench)
import Data.Monoid (mappend, mconcat)
import Data.Text.Lazy.Builder (Builder, fromText, toLazyText)
import Data.Text.Lazy.IO (hPutStr)
import System.IO (Handle)
import qualified Data.Text as T
benchmark :: Handle -> IO Benchmark
benchmark sink = return $ bench "HtmlCombinator" $ do
hPutStr sink "Content-Type: text/html\n\n
"
hPutStr sink . toLazyText . makeTable =<< rows
hPutStr sink "
"
where
-- We provide the number of rows in IO so the builder value isn't shared
-- between the benchmark samples.
rows :: IO Int
rows = return 20000
{-# NOINLINE rows #-}
makeTable :: Int -> Builder
makeTable n = mconcat $ replicate n $ mconcat $ map makeCol [1 .. 50]
makeCol :: Int -> Builder
makeCol 1 = fromText "1 | "
makeCol 50 = fromText "50 |
"
makeCol i = fromText "" `mappend` (fromInt i `mappend` fromText " | ")
fromInt :: Int -> Builder
fromInt = fromText . T.pack . show