Initial

1 files changed, 19 insertions, 0 deletions

diff --git a/src/Benchmarks/bigtable/xhtml.hs b/src/Benchmarks/bigtable/xhtml.hs
new file mode 100644
index 0000000..993994c
--- /dev/null
+++ b/src/Benchmarks/bigtable/xhtml.hs
@@ -0,0 +1,19 @@
+-- | BigTable benchmark using the XHTML package from hackage.
+--
+import Text.XHtml.Strict
+import Criterion.Main
+
+bigTable :: [[Int]] -> String
+bigTable t = renderHtml $ table $ concatHtml $ map row t
+  where
+    row r = tr $ concatHtml $ map (td . stringToHtml . show) r
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable myTable ]
+  where
+    rows :: Int
+    rows = 1000
+
+    myTable :: [[Int]]
+    myTable = replicate rows [1..10]
+    {-# NOINLINE myTable #-}