From be56626575991e73ed774aabf53df32d1418f895 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 26 Sep 2023 11:29:13 +1300
Subject: [PATCH] Benchmark performance of shaping individual words.

---
 bench/Main.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/bench/Main.hs b/bench/Main.hs
index 57ad368..040b485 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
 module Main where
 import Criterion.Main
 import Data.Text.Glyphize
@@ -28,8 +28,12 @@ main = defaultMain [
         bench "Week-Head" $ whnf shapeStr dracula,
         bench "Normal Form" $ nf shapeStr dracula,
         bench "Paragraphs" $ nf (map shapeStr) $ Txt.lines dracula,
-        bench "Parallelised" $ nf (parMap rdeepseq shapeStr) $ Txt.lines dracula
+        bench "Words" $ nf (map shapeStr) $ Txt.words dracula,
+        bench "Parallelised" $ nf (parMap rdeepseq shapeStr) $ Txt.lines dracula,
+        bench "Parallelised words" $ nf (parMap rdeepseq shapeStr) $
+            Txt.words dracula
     ],
+    bench "Word" $ nf shapeStr "Dracula",
     bgroup "building blocks" [
         bench "peekArray (NF)" $ nfIO $ Txt.useAsPtr (Txt.toStrict dracula) $
             \ptr l -> peekArray (fromEnum l) ptr,
-- 
2.30.2