Synnefo » snf-ganeti » ganeti-local

  evacOneNodeOnly nl il inst gdx avail_nodes

-- | Generic function for changing one node of an instance.

--

-- This is similar to 'nodeEvacInstance' but will be used in a few of

-- its sub-patterns.

evacOneNodeOnly :: Node.List         -- ^ The node list (cluster-wide)

                -> Instance.List     -- ^ Instance list (cluster-wide)

                -> Instance.Instance -- ^ The instance to be evacuated

                -> Gdx               -- ^ The group we're targetting

                -> [Ndx]             -- ^ The list of available nodes

                                      -- for allocation

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

evacOneNodeOnly nl il inst gdx avail_nodes = do

  op_fn <- case templateMirrorType (Instance.diskTemplate inst) of

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

             MirrorInternal -> Ok ReplaceSecondary

             MirrorExternal -> Ok FailoverToAny

  (nl', inst', _, ndx) <- annotateResult "Can't find any good node" $

                          eitherToResult $

                          foldl' (evacDrbdSecondaryInner nl inst gdx op_fn)

                          (Left "no nodes available") avail_nodes

  let idx = Instance.idx inst

      il' = Container.add idx inst' il

      ops = iMoveToJob nl' il' idx (op_fn ndx)

  return (nl', il', ops)