From 0bcb43545ebe15f66e053e4ee41a1b971b1b2bc8 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Thu, 13 Jul 2017 00:18:14 -0400
Subject: [PATCH] Benchmark UTF-8 strings

---
 bench/BenchAll.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bench/BenchAll.hs b/bench/BenchAll.hs
index 8d9baf74d..263be7896 100644
--- a/bench/BenchAll.hs
+++ b/bench/BenchAll.hs
@@ -239,6 +239,8 @@ main = do
         [ benchB' "mempty"        ()  (const mempty)
         , benchB' "ensureFree 8"  ()  (const (ensureFree 8))
         , benchB' "intHost 1"     1   intHost
+        , benchB' "UTF-8 String (naive)" "hello world\0" fromString
+        , benchB' "UTF-8 String"  () $ \() -> P.cstringUtf8 "hello world\0"#
         , benchB' "String (naive)" "hello world!" fromString
         , benchB' "String"        () $ \() -> P.cstring "hello world!"#
         ]