We can use the Arbitrary implementation for Bool to create an Arbitrary for a gender of 'm' or 'f'

arbGender :: Gen Char
arbGender = arbitrary >>= \b -> return (if b then 'f' else 'm')