Revision 7d421386 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
105 105 
    op_id <- elements OpCodes.allOpIDs
106 106 
    case op_id of
107 107 
      "OP_TEST_DELAY" ->
108 
        OpCodes.OpTestDelay <$> arbitrary <*> arbitrary
109 
                 <*> genNodeNames <*> arbitrary
108 
        OpCodes.OpTestDelay <$> arbitrary <*> arbitrary <*>
109 
          genNodeNamesNE <*> arbitrary
110 110 
      "OP_INSTANCE_REPLACE_DISKS" ->
111 111 
        OpCodes.OpInstanceReplaceDisks <$> genFQDN <*>
112 112 
          genMaybe genNodeNameNE <*> arbitrary <*> genDiskIndices <*>

Also available in: Unified diff