module Rainbow.Colors.Generators where import qualified Rainbow.Colors as C import Test.QuickCheck import qualified Rainbow.Types.Generators as G import Control.Monad import qualified Prelude.Generators both :: Gen C.Both both = liftM2 C.Both G.color8 (Prelude.Generators.maybe G.color256)