perf-0.14.2.1: src/Perf/Count.hs

-- | Simple counter.
module Perf.Count
  ( count,
    countN,
  )
where

import Perf.Types
import Prelude

-- | Register 1 as a performance measure
count :: (Applicative m) => StepMeasure m Int
count = StepMeasure start stop
  where
    start = pure ()
    stop _ = pure 1
{-# INLINEABLE count #-}

-- | Count the number of times measured.
countN :: Int -> Measure IO Int
countN n = sum <$> toMeasureN n count
{-# INLINEABLE countN #-}