@@ -75,7 +75,10 @@ main = do
7575 , bench "isAlpha_iso8859_15" $ nf (ABL.parse (AC.takeWhile AC.isAlpha_iso8859_15)) bl
7676 ]
7777 , bench "word32LE" $ nf (AB.parse word32LE) b
78− , bench "scan" $ nf (AB.parse quotedString) b
78+ , bgroup "scan" [
79+ bench "short" $ nf (AB.parse quotedString) (BC.pack "abcdefghijk\"")
80+ , bench "long" $ nf (AB.parse quotedString) b
81+ ]
7982 ]
8083
8184-- Benchmarks bind and (potential) bounds-check merging.