Commits

Bryan O'Sullivan committed 569aa55

Add a String benchmark.

Comments (0)

Files changed (1)

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

         B.readFile fp >>= evaluate . func . B.lines
     , bench "LazyByteString" $
         BL.readFile fp >>= evaluate . func . BL.lines
+    , bench "String" $
+        readFile fp >>= evaluate . func . lines
     ]
 
 -- | Frequency of most-appearing line (from the first 100 lines)