case-insensitive-1.2.2.0: bench/bench.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Main ( main) where

import           Criterion.Main             ( defaultMain, bench, nf )
import qualified Data.ByteString      as B  ( readFile )
import qualified Data.CaseInsensitive as CI ( mk )
import qualified NoClass              as NC ( mk )

main :: IO ()
main = do
  bs <- B.readFile "pg2189.txt"
  defaultMain
    [ bench "no-class"         $ nf (\s -> NC.mk s) bs
    , bench "case-insensitive" $ nf (\s -> CI.mk s) bs
    ]