diff options
author | Johannes Gerer <oss@johannesgerer.com> | 2016-10-26 02:07:02 +0200 |
---|---|---|
committer | Johannes Gerer <oss@johannesgerer.com> | 2016-10-26 02:07:02 +0200 |
commit | 675085c2e0b0b851378da08b7d73024766107c87 (patch) | |
tree | 5a927de4a9576aef7e6129b96e74aa5c96f9ffb6 /src/Benchmarks/bigtable/html-minimalist.hs | |
download | blazeT-675085c2e0b0b851378da08b7d73024766107c87.tar.gz blazeT-675085c2e0b0b851378da08b7d73024766107c87.tar.zst blazeT-675085c2e0b0b851378da08b7d73024766107c87.zip |
Initial
Diffstat (limited to 'src/Benchmarks/bigtable/html-minimalist.hs')
-rw-r--r-- | src/Benchmarks/bigtable/html-minimalist.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/Benchmarks/bigtable/html-minimalist.hs b/src/Benchmarks/bigtable/html-minimalist.hs new file mode 100644 index 0000000..2a52751 --- /dev/null +++ b/src/Benchmarks/bigtable/html-minimalist.hs | |||
@@ -0,0 +1,20 @@ | |||
1 | -- | BigTable benchmark using the html-minimalist package from hackage. | ||
2 | -- | ||
3 | import Text.HTML.Light hiding (map) | ||
4 | import Criterion.Main | ||
5 | |||
6 | bigTable :: [[Int]] -> String | ||
7 | bigTable t = | ||
8 | renderXHTML xhtml_1_0_strict $ html [] $ return $ table [] $ map row t | ||
9 | where | ||
10 | row r = tr [] $ map (td [] . return . cdata . show) r | ||
11 | |||
12 | main = defaultMain | ||
13 | [ bench "bigTable" $ nf bigTable myTable ] | ||
14 | where | ||
15 | rows :: Int | ||
16 | rows = 1000 | ||
17 | |||
18 | myTable :: [[Int]] | ||
19 | myTable = replicate rows [1..10] | ||
20 | {-# NOINLINE myTable #-} | ||