Synnefo » snf-ganeti

    let no_nodes = Left "no nodes available"

        node_pairs = [(p,s) | p <- avail_nodes, s <- avail_nodes, p /= s]

    (nl', il', ops, _) <-

        eitherToResult $

        foldl'

        (\accu nodes -> case evacDrbdAllInner nl il inst gdx nodes of

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

             MirrorInternal -> Ok ReplaceSecondary

             MirrorExternal -> Ok FailoverToAny

                          eitherToResult $

                          foldl' (evacOneNodeInner nl inst gdx op_fn)

                          (Left "no nodes available") avail_nodes

    if Node.offline primary

      then do

        (nl', inst', _, _) <-

          opToResult $ applyMove nl inst Failover

        return (nl', inst', [Failover])

      else return (nl, inst, [])

  -- we now need to execute a replace secondary to the future

  -- primary node

  (nl2, inst2, _, _) <-

    opToResult $

    applyMove nl1 inst1 o1

  let ops2 = o1:ops1

  -- we now execute another failover, the primary stays fixed now

                        opToResult $ applyMove nl2 inst2 o2

  let ops3 = o2:ops2

  -- and finally another replace secondary, to the final secondary

  (nl4, inst4, _, _) <-

    opToResult $

    applyMove nl3 inst3 o3

  let ops4 = o3:ops3