Synnefo » snf-ganeti

-- * Types

-- | Allocation\/relocation solution.

-- | The complete state for the balancing solution

data Table = Table Node.List Instance.List Score [Placement]

concatAllocs (flst, cntok, osols) (OpGood ns@(_, _, _, nscore)) =

    let -- Choose the old or new solution, based on the cluster score

        nsols = case osols of

                      if oscore < nscore

                      then osols

                  -- FIXME: here we simply concat to lists with more

                  -- than one element; we should instead abort, since

                  -- this is not a valid usage of this function

        nsuc = cntok + 1

    -- Note: we force evaluation of nsols here in order to keep the

    -- memory profile low - we know that we will need nsols for sure

                           -- FIXME: hardcoded one node here

                           (fm, cs, aes) <- tryReloc nl' il idx 1 ex_ndx

                           case aes of

                                 return (nl'', (fm, cs, csol:rsols))

                             _ -> fail $ "Can't evacuate instance " ++

                                  Instance.name (Container.find idx il)

           Ok (errs, _, sols3) ->

               case sols3 of

                 [] -> Ok (collapseFailures errs, nl, il, ixes)

                     iterateAlloc xnl (Container.add newidx xi il)

                                  newinst nreq $! (xi:ixes)

                 _ -> Bad "Internal error: multiple solutions for single\