1 files changed, 19 insertions, 0 deletions

diff --git a/src/Benchmarks/bigtable/html.hs b/src/Benchmarks/bigtable/html.hs
new file mode 100644
index 0000000..57a62b3
--- /dev/null
+++ b/src/Benchmarks/bigtable/html.hs
@@ -0,0 +1,19 @@
+-- | BigTable benchmark using the HTML package from hackage.
+--
+import Text.Html
+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 #-}