Revision a59d5fa1 test/hs/Test/Ganeti/OpCodes.hs

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

  		





  70
  70
  
    
$(genArbitrary ''DiskAccess)


  		





  71
  71
  
    

  		





  
  72
  
    
$(genArbitrary ''InstReasonSrc)


  		





  
  73
  
    

  		





  72
  74
  
    
instance Arbitrary OpCodes.DiskIndex where


  		





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


  		





  74
  76
  
    

  		












Also available in:
  Unified diff