Revision 86012ec2 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
80 80 

  		





  81
  81
  
    
$(genArbitrary ''DiskAccess)


  		





  82
  82
  
    

  		





  83
  
  
    
$(genArbitrary ''ImportExportCompression)


  		





  84
  
  
    

  		





  85
  83
  
    
instance Arbitrary OpCodes.DiskIndex where


  		





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


  		





  87
  85
  
    

  		












Also available in:
  Unified diff