Revision bbe9758d htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
1329 1329 
    let inst = Container.find idx il
1330 1330 
        iname = Instance.name inst
1331 1331 
        lookNode  = Just . Container.nameOf nl
1332 
        opF = OpCodes.OpInstanceMigrate iname True False True
1332 
        opF = OpCodes.OpInstanceMigrate iname True False True Nothing
1333 1333 
        opR n = OpCodes.OpInstanceReplaceDisks iname (lookNode n)
1334 1334 
                OpCodes.ReplaceNewSecondary [] Nothing
1335 1335 
    in case move of

Also available in: Unified diff