Revision 1a82215d Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
100 100 
                    sdx = Instance.snode inst
101 101 
                    pold = fromJust $ lookup pdx accu
102 102 
                    pnew = Node.setPri pold idx
103 
                    pnew' = Node.addCpus pnew (Instance.vcpus inst)
103 104 
                    ac1 = deleteBy assocEqual (pdx, pold) accu
104 
                    ac2 = (pdx, pnew):ac1
105 
                    ac2 = (pdx, pnew'):ac1
105 106 
                in
106 107 
                  if sdx /= Node.noSecondary then
107 108 
                      let

Also available in: Unified diff