cases-0.1.3.2: benchmark/Benchmark.hs

module Main where

import Prelude
import Criterion.Main
import qualified Cases as A
import qualified Data.Text as B


main =
  defaultMain $
  [
    bench "camelize" $ nf A.camelize $! B.replicate 100 "Abc 123 / dsf asdf ;lkj. "
  ]