binary-tagged-0.1.0.0: test/Generators.hs

module Generators where

import Data.Monoid
import Test.Tasty.QuickCheck

arbitrarySum :: Arbitrary a => Gen (Sum a)
arbitrarySum = fmap Sum arbitrary

arbitraryProduct :: Arbitrary a => Gen (Product a)
arbitraryProduct = fmap Product arbitrary