git.iko.soy/typeable/aeson
on 1.0.1.0 help sign in
typeable/aeson/benchmarks/Micro.hs
20 lines 581 B history raw
1module Main (main) where
3import Prelude ()
4import Prelude.Compat
6import Criterion.Main
7import qualified Data.Aeson.Encoding.Builder as AB
8import qualified Data.ByteString.Builder as B
9import qualified Data.Text as T
11main :: IO ()
12main = do
13 let txt = "append (append b (primBounded w1 x1)) (primBounded w2 x2)"
14 defaultMain [
15 bgroup "string" [
16 bench "text" $ nf (B.toLazyByteString . AB.text) (T.pack txt)
17 , bench "string direct" $ nf (B.toLazyByteString . AB.string) txt
18 , bench "string via text" $ nf (B.toLazyByteString . AB.text . T.pack) txt
19 ]
20 ]