X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/fe48d53cab8f13adee0f46b29376f81811e94c58..e43e78dfc9136256ab3d12330320bbf4dfbfea81:/htools/Ganeti/HTools/Cluster.hs

diff --git a/htools/Ganeti/HTools/Cluster.hs b/htools/Ganeti/HTools/Cluster.hs
index ea86615..ece8415 100644
--- a/htools/Ganeti/HTools/Cluster.hs
+++ b/htools/Ganeti/HTools/Cluster.hs
@@ -483,7 +483,7 @@ allocateOnSingle nl inst new_pdx =
     Instance.instMatchesPolicy inst (Node.iPolicy p)
     new_p <- Node.addPri p inst
     let new_nl = Container.add new_pdx new_p nl
-        new_score = compCV nl
+        new_score = compCV new_nl
     return (new_nl, new_inst, [new_p], new_score)
 
 -- | Tries to allocate an instance on a given pair of nodes.