1 files changed, 33 insertions, 0 deletions

diff --git a/src/Benchmarks/bigtable/hamlet.hs b/src/Benchmarks/bigtable/hamlet.hs
new file mode 100644
index 0000000..2778f2d
--- /dev/null
+++ b/src/Benchmarks/bigtable/hamlet.hs
@@ -0,0 +1,33 @@
+-- | BigTable benchmark implemented using Hamlet.
+--
+{-# LANGUAGE QuasiQuotes #-}
+module Main where
+
+import Criterion.Main
+import Text.Hamlet
+import Text.Hamlet.Monad
+import Numeric (showInt)
+import Data.Text (Text)
+import qualified Data.Text as T
+import Data.Maybe (fromJust)
+
+main = defaultMain
+    [ bench "bigTable" $ nf bigTable bigTableData
+    ]
+  where
+    rows :: Int
+    rows = 1000
+
+    bigTableData :: [[Int]]
+    bigTableData = replicate rows [1..10]
+    {-# NOINLINE bigTableData #-}
+
+bigTable rows = fromJust $ hamletToText undefined [$hamlet|
+%table
+    $forall rows row
+        %tr
+            $forall row cell
+                %td $showInt'.cell$
+|]
+  where
+    showInt' i = Encoded $ T.pack $ showInt i ""