@@ -6,7 +6,7 @@ module Data.Text.Benchmarks.Equality
9−import Criterion (Benchmark, bgroup, bench, whnf, nf)
9+import Criterion (Benchmark, bgroup, bench, whnf)
10import qualified Data.ByteString.Char8 as B
10import qualified Data.ByteString.Char8 as B
11import qualified Data.ByteString.Lazy.Char8 as BL
11import qualified Data.ByteString.Lazy.Char8 as BL
12import qualified Data.Text as T
12import qualified Data.Text as T
@@ -30,6 +30,6 @@ benchmark fp = do
30 [ bench "Text" $ whnf (== T.init t `T.snoc` '\xfffd') t
30 [ bench "Text" $ whnf (== T.init t `T.snoc` '\xfffd') t
31 , bench "LazyText" $ whnf (== TL.init tl `TL.snoc` '\xfffd') tl
31 , bench "LazyText" $ whnf (== TL.init tl `TL.snoc` '\xfffd') tl
32 , bench "ByteString" $ whnf (== B.init b `B.snoc` '\xfffd') b
32 , bench "ByteString" $ whnf (== B.init b `B.snoc` '\xfffd') b
33− , bench "LazyByteString" $ nf (== BL.init bl2 `BL.snoc` '\xfffd') bl1
33+ , bench "LazyByteString" $ whnf (== BL.init bl2 `BL.snoc` '\xfffd') bl1
34 , bench "String" $ whnf (== init l ++ "\xfffd") l
34 , bench "String" $ whnf (== init l ++ "\xfffd") l