LGTM
On Fri, Jul 04, 2014 at 07:41:09PM +0200, 'Klaus Aehlig' via ganeti-devel wrote: > ...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 >
