Synnefo » snf-ganeti » ganeti-local

      osdx = Instance.sNode target

      bad_nodes = [opdx, osdx]

      nodes = filter (`notElem` bad_nodes) nodes_idx

      use_secondary = elem osdx nodes_idx && inst_moves

      aft_failover = if mir_type == MirrorInternal && use_secondary

                       -- if drbd and allowed to failover

                                      -- for allocation

                -> Result (Node.List, Instance.List, [OpCodes.OpCode])

evacOneNodeOnly nl il inst gdx avail_nodes = do

             MirrorNone -> Bad "Can't relocate/evacuate non-mirrored instances"

             MirrorInternal -> Ok ReplaceSecondary

             MirrorExternal -> Ok FailoverToAny

  let orig = Container.find idx il

      sorig = Instance.sNode orig

      porig = Instance.pNode orig

  (exp_node, node_type, reloc_type) <-

    case mir_type of

      MirrorNone -> fail "Can't relocate non-mirrored instances"

  , requiredNodes

  , allNodes

  , usesLocalStorage

  ) where

import qualified Ganeti.HTools.Types as T

-- | Checks whether a given disk template supported moves.

supportsMoves :: T.DiskTemplate -> Bool

supportsMoves = (`elem` movableDiskTemplates)

-- | Checks if an instance is mirrored.

isMirrored :: Instance.Instance -> Bool

-- | Returns the possible change node types for a disk template.

evacModeOptions :: Types.MirrorType -> [Types.EvacMode]

      conjoin $ map (\mode -> check_EvacMode defGroup inst' $

                              Cluster.tryNodeEvac defGroupList nl il mode

                                [Instance.idx inst']) .

-- | Checks that on a 4-8 node cluster with two node groups, once we

-- allocate an instance on the first node group, we can also change