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 @@
+-- | BigTable benchmark using the html-minimalist package from hackage.
+--
+import Text.HTML.Light hiding (map)
+import Criterion.Main
+
+bigTable :: [[Int]] -> String
+bigTable t =
+    renderXHTML xhtml_1_0_strict $ html [] $ return $ table [] $ map row t
+  where
+    row r = tr [] $ map (td [] . return . cdata . show) r
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable myTable ]
+  where
+    rows :: Int
+    rows = 1000
+
+    myTable :: [[Int]]
+    myTable = replicate rows [1..10]
+    {-# NOINLINE myTable #-}