Revision 7022db83 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
46 46 

  		





  47
  47
  
    
-- * Arbitrary instances


  		





  48
  48
  
    

  		





  49
  
  
    
instance Arbitrary OpCodes.ReplaceDisksMode where


  		





  50
  
  
    
  arbitrary = elements [minBound..maxBound]


  		





  
  49
  
    
$(genArbitrary ''OpCodes.ReplaceDisksMode)


  		





  51
  50
  
    

  		





  52
  51
  
    
instance Arbitrary OpCodes.DiskIndex where


  		





  53
  52
  
    
  arbitrary = choose (0, C.maxDisks - 1) >>= OpCodes.mkDiskIndex


  		












Also available in:
  Unified diff