Oops, missed a file
commitf792fc53eaacc7a793c038671e6d79534ac5b607
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 6 Jul 2015, 21:34 (11 years ago)
parent1fa91b7
benchmarks/Micro.hsnew file+18
@@ -0,0 +1,18 @@
1+module Main (main) where
2+
3+import Criterion.Main
4+import qualified Data.Aeson.Encode.Builder as AB
5+import qualified Data.ByteString.Builder as B
6+import qualified Data.Text as T
7+
8+
9+main :: IO ()
10+main = do
11+ let txt = "append (append b (primBounded w1 x1)) (primBounded w2 x2)"
12+ defaultMain [
13+ bgroup "string" [
14+ bench "text" $ nf (B.toLazyByteString . AB.text) (T.pack txt)
15+ , bench "string direct" $ nf (B.toLazyByteString . AB.string) txt
16+ , bench "string via text" $ nf (B.toLazyByteString . AB.text . T.pack) txt
17+ ]
18+ ]