@@ -223,6 +223,13 @@ main = do
223 , bench "bl" $ nf BL.tail bla
223 , bench "bl" $ nf BL.tail bla
224 , bench "l" $ nf L.tail la
224 , bench "l" $ nf L.tail la
227+ bench "ts" $ nf TS.toUpper tsa
228+ , bench "tl" $ nf TL.toUpper tla
229+ , bench "bs" $ nf (BS.map toUpper) bsa
230+ , bench "bl" $ nf (BL.map toUpper) bla
231+ , bench "l" $ nf (L.map toUpper) la
226 bgroup "words" [
233 bgroup "words" [
227 bench "ts" $ nf TS.words tsa
234 bench "ts" $ nf TS.words tsa
228 , bench "tl" $ nf TL.words tla
235 , bench "tl" $ nf TL.words tla
@@ -333,6 +340,13 @@ main = do
333 , bench "bl" $ nf (BL.length . BL.tail) bla
340 , bench "bl" $ nf (BL.length . BL.tail) bla
334 , bench "l" $ nf (L.length . L.tail) la
341 , bench "l" $ nf (L.length . L.tail) la
344+ bench "ts" $ nf (TS.length . TS.toUpper) tsa
345+ , bench "tl" $ nf (TL.length . TL.toUpper) tla
346+ , bench "bs" $ nf (BS.length . BS.map toUpper) bsa
347+ , bench "bl" $ nf (BL.length . BL.map toUpper) bla
348+ , bench "l" $ nf (L.length . L.map toUpper) la
336 bgroup "words" [
350 bgroup "words" [
337 bench "ts" $ nf (L.length . TS.words) tsa
351 bench "ts" $ nf (L.length . TS.words) tsa
338 , bench "tl" $ nf (L.length . TL.words) tla
352 , bench "tl" $ nf (L.length . TL.words) tla