module Main (main) where

import Prelude ()

import Prelude.Compat

import Criterion.Main

import qualified Data.Aeson.Encoding.Builder as AB

import qualified Data.ByteString.Builder as B

import qualified Data.Text as T

main :: IO ()

main = do

  let txt = "append (append b (primBounded w1 x1)) (primBounded w2 x2)"

  defaultMain [

    bgroup "string" [

      bench "text" $ nf (B.toLazyByteString . AB.text) (T.pack txt)

    , bench "string direct" $ nf (B.toLazyByteString . AB.string) txt

    , bench "string via text" $ nf (B.toLazyByteString . AB.text . T.pack) txt

    ]

   ]