Revision 8d66f58a htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
1042 1042
    let inst = Container.find idx il
1043 1043
        iname = Instance.name inst
1044 1044
        lookNode  = Just . Container.nameOf nl
1045
        opF = if Instance.running inst
1046
              then OpCodes.OpMigrateInstance iname True False
1047
              else OpCodes.OpFailoverInstance iname False
1045
        opF = OpCodes.OpMigrateInstance iname True False True
1048 1046
        opR n = OpCodes.OpReplaceDisks iname (lookNode n)
1049 1047
                OpCodes.ReplaceNewSecondary [] Nothing
1050 1048
    in case move of

Also available in: Unified diff