Add benchmark for uncons
authorBryan O'Sullivan <bos@serpentine.com>
Tue, 22 Dec 2015 20:02:30 +0000 (12:02 -0800)
committerBryan O'Sullivan <bos@serpentine.com>
Tue, 22 Dec 2015 20:02:30 +0000 (12:02 -0800)
benchmarks/haskell/Benchmarks/Pure.hs

index c994c00..9ae5117 100644 (file)
@@ -262,6 +262,13 @@ benchmark kind fp = do
             , benchBSL $ nf (BL.map toUpper) bla
             , benchS   $ nf (L.map toUpper) sa
             ]
+        , bgroup "uncons"
+            [ benchT   $ nf T.uncons ta
+            , benchTL  $ nf TL.uncons tla
+            , benchBS  $ nf BS.uncons bsa
+            , benchBSL $ nf BL.uncons bla
+            , benchS   $ nf L.uncons sa
+            ]
         , bgroup "words"
             [ benchT   $ nf T.words ta
             , benchTL  $ nf TL.words tla