oneOf package:fakedata

oneof :: forall t a m . (Monad m, Foldable t) => t (FakeT m a) -> FakeT m a
fakedata Faker.Combinators
Randomly uses one of the given generators. The input structure must be non-empty. 
λ> import qualified Faker.Address as FA
λ> let fakes = [FA.country, FA.postcode, FA.state]
λ> generate (oneof fakes)
Montana