Revision f9556d33

b/htools/Ganeti/HTools/Cluster.hs
1453 1453 
                      Bad msg -> error $ "Empty node name for idx " ++
1454 1454 
                                 show n ++ ": " ++ msg ++ "??"
1455 1455 
                      Ok ne -> Just ne
1456 
      opF = OpCodes.OpInstanceMigrate iname True False True Nothing
1457 
      opFA n = OpCodes.OpInstanceMigrate iname True False True (lookNode n)
1456 
      live = Just True
1457 
      opF = OpCodes.OpInstanceMigrate iname live False True Nothing
1458 
      opFA n = OpCodes.OpInstanceMigrate iname live False True (lookNode n)
1458 1459 
      opR n = OpCodes.OpInstanceReplaceDisks iname (lookNode n)
1459 1460 
              OpCodes.ReplaceNewSecondary [] Nothing
1460 1461 
  in case move of
b/htools/Ganeti/OpCodes.hs
70 70 
     ])
71 71 
  , ("OpInstanceMigrate",
72 72 
     [ pInstanceName
73 
     , simpleField "live"           [t| Bool   |]
73 
     , pMigrationLive
74 74 
     , pMigrationCleanup
75 75 
     , pAllowFailover
76 76 
     , pMigrationTargetNode

Also available in: Unified diff