Commits

Jasper Van der Jeugt  committed cfb243c

Equality benchmark: nf is not necessary here

  • Participants
  • Parent commits 975dfbc

Comments (0)

Files changed (1)

File tests/benchmarks/src/Data/Text/Benchmarks/Equality.hs

       benchmark
     ) where
 
-import Criterion (Benchmark, bgroup, bench, whnf, nf)
+import Criterion (Benchmark, bgroup, bench, whnf)
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString.Lazy.Char8 as BL
 import qualified Data.Text as T
     [ bench "Text" $ whnf (== T.init t `T.snoc` '\xfffd') t
     , bench "LazyText" $ whnf (== TL.init tl `TL.snoc` '\xfffd') tl
     , bench "ByteString" $ whnf (== B.init b `B.snoc` '\xfffd') b
-    , bench "LazyByteString" $ nf (== BL.init bl2 `BL.snoc` '\xfffd') bl1
+    , bench "LazyByteString" $ whnf (== BL.init bl2 `BL.snoc` '\xfffd') bl1
     , bench "String" $ whnf (== init l ++ "\xfffd") l
     ]