Combine two fuzzers.

fuzzMaybeInt : Fuzzer (Maybe Int)
fuzzMaybeInt =
    Fuzz.Extra.eitherOr
        (Fuzz.constant Nothing)
        (Fuzz.int |> Fuzz.map Just)

Create a fuzzer for a union type.

type Age
    = Baby
    | Teen
    | Adult




shrinkAge : Shrinker Age
shrinkAge a =
    case a of
        Baby ->
            Teen ::: Adult ::: empty


        Teen ->
            Adult ::: empty


        Adult ->
            empty




fuzzAge : Fuzzer Age
fuzzAge =
    Fuzz.Extra.union [ Baby, Teen, Adult ] Baby shrinkAge