hscuid-1.2.0.1: test/Perf.hs

import qualified Criterion.Main as C
import Web.Cuid (newCuid, newSlug)

main :: IO ()
main = C.defaultMain
    [ C.bench "newCuid" $ C.nfIO newCuid
    , C.bench "newSlug" $ C.nfIO newSlug
    ]