Revision 2ca1b52d test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
94 94 
instance Arbitrary IDiskParams where
95 95 
  arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
96 96 
              genMaybe genNameNE <*> genMaybe genNameNE <*>
97 
              genMaybe genNameNE <*> genMaybe genNameNE
97 
              genMaybe genNameNE <*> genMaybe genNameNE <*>
98 
              arbitrary
98 99 

  		





  99
  100
  
    
instance Arbitrary RecreateDisksInfo where


  		





  100
  101
  
    
  arbitrary = oneof [ pure RecreateDisksAll


  		












Also available in:
  Unified diff