Revision 596470db test/hs/Test/Ganeti/TestCommon.hs

b/test/hs/Test/Ganeti/TestCommon.hs
42 42 
  , genName
43 43 
  , genFQDN
44 44 
  , genMaybe
45 
  , genNothing
45 46 
  , genTags
46 47 
  , genFields
47 48 
  , genUniquesList
......
188 189 
genMaybe :: Gen a -> Gen (Maybe a)
189 190 
genMaybe subgen = frequency [ (1, pure Nothing), (3, Just <$> subgen) ]
190 191 

  		





  
  192
  
    
genNothing :: a -> Maybe a


  		





  
  193
  
    
genNothing _ = Nothing


  		





  
  194
  
    

  		





  191
  195
  
    
-- | Defines a tag type.


  		





  192
  196
  
    
newtype TagChar = TagChar { tagGetChar :: Char }


  		





  193
  197
  
    

  		












Also available in:
  Unified diff