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

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

import Control.Applicative (pure, (<$>))
import Test.QuickCheck

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