make genMaybe more Just

There is a common conception that Just something is more worth than
Nothing. So we're biasing our tests towards that. As such let's generate
Nothing fewer times, and Just subgen more times. The values were copied
from the "official" maybe generator.

Signed-off-by: Guido Trotter <ultrotter@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>

htest/Test/Ganeti/TestCommon.hs

@@ -147,7 +147,7 @@ genFQDN = do
 
 -- | Combinator that generates a 'Maybe' using a sub-combinator.
 genMaybe :: Gen a -> Gen (Maybe a)
-genMaybe subgen = oneof [ pure Nothing, liftM Just subgen ]
+genMaybe subgen = frequency [ (1, pure Nothing), (3, Just <$> subgen) ]
 
 -- | Defines a tag type.
 newtype TagChar = TagChar { tagGetChar :: Char }