Revision 4c49b965 htest/Test/Ganeti/TestCommon.hs

b/htest/Test/Ganeti/TestCommon.hs
147 147

  
148 148
-- | Combinator that generates a 'Maybe' using a sub-combinator.
149 149
genMaybe :: Gen a -> Gen (Maybe a)
150
genMaybe subgen = oneof [ pure Nothing, liftM Just subgen ]
150
genMaybe subgen = frequency [ (1, pure Nothing), (3, Just <$> subgen) ]
151 151

  
152 152
-- | Defines a tag type.
153 153
newtype TagChar = TagChar { tagGetChar :: Char }

Also available in: Unified diff