Revision df8578fb htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
360 360 
genDiskIndices :: Gen [DiskIndex]
361 361 
genDiskIndices = do
362 362 
  cnt <- choose (0, C.maxDisks)
363 
  genUniquesList cnt
363 
  genUniquesList cnt arbitrary
364 364 

  		





  365
  365
  
    
-- | Generates a list of node names.


  		





  366
  366
  
    
genNodeNames :: Gen [String]


  		












Also available in:
  Unified diff