@@ -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.toLower tsa
228+ , bench "tl" $ nf TL.toLower tla
229+ , bench "bs" $ nf (BS.map toLower) bsa
230+ , bench "bl" $ nf (BL.map toLower) bla
231+ , bench "l" $ nf (L.map toLower) la
226 bgroup "toUpper" [
233 bgroup "toUpper" [
227 bench "ts" $ nf TS.toUpper tsa
234 bench "ts" $ nf TS.toUpper tsa
228 , bench "tl" $ nf TL.toUpper tla
235 , bench "tl" $ nf TL.toUpper tla
@@ -340,6 +347,13 @@ main = do
340 , bench "bl" $ nf (BL.length . BL.tail) bla
347 , bench "bl" $ nf (BL.length . BL.tail) bla
341 , bench "l" $ nf (L.length . L.tail) la
348 , bench "l" $ nf (L.length . L.tail) la
351+ bench "ts" $ nf (TS.length . TS.toLower) tsa
352+ , bench "tl" $ nf (TL.length . TL.toLower) tla
353+ , bench "bs" $ nf (BS.length . BS.map toLower) bsa
354+ , bench "bl" $ nf (BL.length . BL.map toLower) bla
355+ , bench "l" $ nf (L.length . L.map toLower) la
343 bgroup "toUpper" [
357 bgroup "toUpper" [
344 bench "ts" $ nf (TS.length . TS.toUpper) tsa
358 bench "ts" $ nf (TS.length . TS.toUpper) tsa
345 , bench "tl" $ nf (TL.length . TL.toUpper) tla
359 , bench "tl" $ nf (TL.length . TL.toUpper) tla