Revision bbe9758d htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
255 255 
          liftM5 OpCodes.OpInstanceReplaceDisks arbitrary arbitrary
256 256 
          arbitrary arbitrary arbitrary
257 257 
        "OP_INSTANCE_FAILOVER" ->
258 
          liftM2 OpCodes.OpInstanceFailover arbitrary arbitrary
258 
          liftM3 OpCodes.OpInstanceFailover arbitrary arbitrary
259 
                 arbitrary
259 260 
        "OP_INSTANCE_MIGRATE" ->
260 
          liftM4 OpCodes.OpInstanceMigrate arbitrary arbitrary arbitrary
261 
          liftM5 OpCodes.OpInstanceMigrate arbitrary arbitrary
262 
                 arbitrary arbitrary
261 263 
          arbitrary
262 264 
        _ -> fail "Wrong opcode")
263 265 

  		












Also available in:
  Unified diff