From 378c49fa91ff7ee0dd828577360bad9f52640abe Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Sat, 13 Mar 2021 12:10:48 +0000
Subject: [PATCH] Use ByteString builder without intermediate blaze-builder
---
benchmarks/haskell/Benchmarks/Builder.hs | 5 ++---
benchmarks/text-benchmarks.cabal | 1 -
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/benchmarks/haskell/Benchmarks/Builder.hs b/benchmarks/haskell/Benchmarks/Builder.hs
index 02c7fcc6..8373dab7 100644
--- a/benchmarks/haskell/Benchmarks/Builder.hs
+++ b/benchmarks/haskell/Benchmarks/Builder.hs
@@ -13,8 +13,7 @@ import Test.Tasty.Bench (Benchmark, bgroup, bench, nf)
import Data.Binary.Builder as B
import Data.ByteString.Char8 ()
import Data.Monoid (mconcat, mempty)
-import qualified Blaze.ByteString.Builder as Blaze
-import qualified Blaze.ByteString.Builder.Char.Utf8 as Blaze
+import qualified Data.ByteString.Builder as Blaze
import qualified Data.ByteString as SB
import qualified Data.ByteString.Lazy as LB
import qualified Data.Text as T
@@ -32,7 +31,7 @@ benchmark = bgroup "Builder"
(LB.length . B.toLazyByteString . mconcat . map B.fromByteString)
byteStrings
, bench "Blaze" $ nf
- (LB.length . Blaze.toLazyByteString . mconcat . map Blaze.fromString)
+ (LB.length . Blaze.toLazyByteString . mconcat . map Blaze.stringUtf8)
strings
]
, bgroup "Int"
diff --git a/benchmarks/text-benchmarks.cabal b/benchmarks/text-benchmarks.cabal
index 8b217bba..90a5d7d0 100644
--- a/benchmarks/text-benchmarks.cabal
+++ b/benchmarks/text-benchmarks.cabal
@@ -39,7 +39,6 @@ benchmark text-benchmarks
build-depends: array,
base == 4.*,
binary,
- blaze-builder,
bytestring-lexing >= 0.5.0,
containers,
tasty-bench >= 0.2,
--
GitLab