git.iko.soy/typeable/aeson
on master help sign in
Oops, missed a file
f792fc5Bryan O'Sullivan
benchmarks/Micro.hsnew file+18
compare with master
unifiedsplit
@@ -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+ ]