Revision 0359e5d0 test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
228 228 
instance Arbitrary TagSet where
229 229 
  arbitrary = Set.fromList <$> genTags
230 230 

  		





  
  231
  
    
instance Arbitrary IAllocatorParams where


  		





  
  232
  
    
  arbitrary = return $ GenericContainer Map.empty


  		





  
  233
  
    

  		





  231
  234
  
    
$(genArbitrary ''Cluster)


  		





  232
  235
  
    

  		





  233
  236
  
    
instance Arbitrary Network where


  		












Also available in:
  Unified diff