Revision 10028866 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 = OpCodes.OpMigrateInstance iname True False True
1046 
        opR n = OpCodes.OpReplaceDisks iname (lookNode n)
1045 
        opF = OpCodes.OpInstanceMigrate iname True False True
1046 
        opR n = OpCodes.OpInstanceReplaceDisks iname (lookNode n)
1047 1047 
                OpCodes.ReplaceNewSecondary [] Nothing
1048 1048 
    in case move of
1049 1049 
         Failover -> [ opF ]

Also available in: Unified diff