checkers-0.5.4: src/Test/QuickCheck/Instances/Maybe.hs

module Test.QuickCheck.Instances.Maybe (maybeGen) where

import Test.QuickCheck

maybeGen :: Gen a -> Gen (Maybe a)
maybeGen x = oneof [pure Nothing
                   ,Just <$> x]