Add a String benchmark.
commit9eed1d32a8c7dbdf1b6e83b207da05c7577ec8e6
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 30 May 2011, 20:53 (15 years ago)
parentc37a5fb
tests/benchmarks/src/Data/Text/Benchmarks/Equality.hs+2
@@ -24,6 +24,8 @@ benchmark fp = return $ bgroup "Equality"
2424 B.readFile fp >>= evaluate . func . B.lines
2525 , bench "LazyByteString" $
2626 BL.readFile fp >>= evaluate . func . BL.lines
27+ , bench "String" $
28+ readFile fp >>= evaluate . func . lines
2729 ]
2830
2931-- | Frequency of most-appearing line (from the first 100 lines)