wordchoice-0.1.0.1: bench/Bench.hs

module Main where

import Criterion.Main
import Data.Text.WordCount

main = do
    defaultMain [ env setupEnv $ \file ->
                  bgroup "ulysses all"
                      [ bench "226" $ whnf (fun 10000000) file ] ]
    where fun      = topN
          setupEnv = processFile "test/ulysses.txt"