Revision 4a1dc2bf htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
461 461 
instance Arbitrary OpCodes.ReplaceDisksMode where
462 462 
  arbitrary = elements [minBound..maxBound]
463 463 

  		





  
  464
  
    
instance Arbitrary OpCodes.DiskIndex where


  		





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


  		





  
  466
  
    

  		





  464
  467
  
    
instance Arbitrary OpCodes.OpCode where


  		





  465
  468
  
    
  arbitrary = do


  		





  466
  469
  
    
    op_id <- elements OpCodes.allOpIDs


  		












Also available in:
  Unified diff