git.iko.soy/typeable/aeson
on wip/yuras/scanner help sign in
typeable/aeson/benchmarks/Micro.hs
22 lines 628 B history raw
1{-# LANGUAGE NoImplicitPrelude #-}
3module Main (main) where
5import Prelude.Compat
7import Criterion.Main
9-- Encoding is a newtype wrapper around Builder
10import Data.Aeson.Encoding (text, string, encodingToLazyByteString)
11import qualified Data.Text as T
13main :: IO ()
14main = do
15 let txt = "append (append b (primBounded w1 x1)) (primBounded w2 x2)"
16 defaultMain [
17 bgroup "string" [
18 bench "text" $ nf (encodingToLazyByteString . text) (T.pack txt)
19 , bench "string direct" $ nf (encodingToLazyByteString . string) txt
20 , bench "string via text" $ nf (encodingToLazyByteString . text . T.pack) txt
21 ]
22 ]