@@ -6,7 +6,7 @@ module Data.Text.Benchmarks.Equality
66 benchmark
77 ) where
88
9−import Criterion (Benchmark, bgroup, bench, whnf, nf)
9+import Criterion (Benchmark, bgroup, bench, whnf)
1010import qualified Data.ByteString.Char8 as B
1111import qualified Data.ByteString.Lazy.Char8 as BL
1212import qualified Data.Text as T
@@ -30,6 +30,6 @@ benchmark fp = do
3030 [ bench "Text" $ whnf (== T.init t `T.snoc` '\xfffd') t
3131 , bench "LazyText" $ whnf (== TL.init tl `TL.snoc` '\xfffd') tl
3232 , 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
3434 , bench "String" $ whnf (== init l ++ "\xfffd") l
3535 ]