Synnefo » snf-ganeti » ganeti-local

import qualified Ganeti.HTools.Instance as Instance

import qualified Ganeti.HTools.Node as Node

import qualified Ganeti.HTools.Group as Group

import Ganeti.HTools.Types

import Ganeti.HTools.Utils

    then Instance.setMovable inst False

    else inst

-- | Compute the longest common suffix of a list of strings that

-- starts with a dot.

longestDomain :: [String] -> String

      nl3 = Container.map (setNodePolicy gl .

                           computeAlias common_suffix .

                           (`Node.buildPeers` il4)) nl2

  in if' (null lkp_unknown)

         (Bad $ "Unknown instance(s): " ++ show(map lrContent lkp_unknown))

-- | Checks the cluster data for consistency.

  -- hbal doesn't currently handle split clusters

  let split_insts = Cluster.findSplitInstances nl il

    hPutStrLn stderr "Found instances belonging to multiple node groups:"

    mapM_ (\i -> hPutStrLn stderr $ "  " ++ Instance.name i) split_insts

  printf "Loaded %d nodes, %d instances\n"

             (Container.size nl)