...as it is never used anyway.
Signed-off-by: Klaus Aehlig <[email protected]>
---
src/Ganeti/HTools/Cluster.hs | 11 -----------
1 file changed, 11 deletions(-)
diff --git a/src/Ganeti/HTools/Cluster.hs b/src/Ganeti/HTools/Cluster.hs
index 84cf49f..042d722 100644
--- a/src/Ganeti/HTools/Cluster.hs
+++ b/src/Ganeti/HTools/Cluster.hs
@@ -53,7 +53,6 @@ module Ganeti.HTools.Cluster
, printNodes
, printInsts
-- * Balacing functions
- , checkMove
, doNextBalance
, tryBalance
, compCV
@@ -707,16 +706,6 @@ checkMoveEx force nodes_idx disk_moves inst_moves rest_mig
ini_tbl victims =
then ini_tbl -- no advancement
else best_tbl
--- | Compute the best next move.
-checkMove :: [Ndx] -- ^ Allowed target node indices
- -> Bool -- ^ Whether disk moves are allowed
- -> Bool -- ^ Whether instance moves are allowed
- -> Bool -- ^ Whether migration is restricted
- -> Table -- ^ The current solution
- -> [Instance.Instance] -- ^ List of instances still to move
- -> Table -- ^ The new solution
-checkMove = checkMoveEx False
-
-- | Check if we are allowed to go deeper in the balancing.
doNextBalance :: Table -- ^ The starting table
-> Int -- ^ Remaining length
--
2.0.0.526.g5318336
