snap-server-0.2.7.1: test/benchmark/Benchmark.hs

module Main where

import Criterion.Main

import qualified Snap.Internal.Http.Parser.Benchmark as PB

fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

main :: IO ()
main = defaultMain [
	PB.benchmarks
       ]