@@ -68,6 +68,10 @@ main = do
6868 , bench "isAlpha_iso8859_15" $
6969 nf (ABL.parse (AC.takeWhile AC.isAlpha_iso8859_15)) bl
7070 ]
71+ , bgroup "takeWhile1" [
72+ bench "isAlpha" $ nf (ABL.parse (AC.takeWhile1 isAlpha)) bl
73+ , bench "isAlpha_ascii" $ nf (ABL.parse (AC.takeWhile1 AC.isAlpha_ascii)) bl
74+ ]
7175 , bench "word32LE" $ nf (AB.parse word32LE) b
7276 , bgroup "scan" [
7377 bench "short" $ nf (AB.parse quotedString) (BC.pack "abcdefghijk\"")