perf-0.14.2.1: app/bench.hs

-- | Sum example, measured using default settings.
module Main where

import Data.List qualified as List
import Perf
import Prelude

main :: IO ()
main = do
  let l = 1000
  let a = ExampleSum
  reportMain defaultReportOptions (List.intercalate "-" [show a, show @Int l]) (testExample . examplePattern a)