{-# LANGUAGE PackageImports #-}

{-# LANGUAGE ScopedTypeVariables #-}

module Main (main) where

import Prelude ()

import Prelude.Compat

import Criterion.Main

import qualified "aeson-benchmarks" Data.Aeson.Parser.UnescapeFFI as FFI

import qualified "aeson-benchmarks" Data.Aeson.Parser.UnescapePure as Pure

import qualified Data.ByteString.Char8 as BS

n :: Int

n = 10000

input :: BS.ByteString

input = BS.concat $ replicate n $ BS.pack "\\\""

main :: IO ()

main = defaultMain

    [ bench "ffi"  $ whnf FFI.unescapeText input

    , bench "pure" $ whnf Pure.unescapeText input

    ]