Synnefo » snf-ganeti

{-

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

            in Container.add sdx snew ac2

       else ac2

-- | Remove non-selected tags from the exclusion list.

filterExTags :: [String] -> Instance.Instance -> Instance.Instance

filterExTags tl inst =

          -> [String]             -- ^ Excluded instances

          -> ClusterData          -- ^ Data from backends

          -> Result ClusterData   -- ^ Fixed cluster data

  let il = Container.elems il2

      il3 = foldl' (\im (name, n_util) ->

                        case Container.findByName im name of

                           filterExTags allextags .

                           updateMovable selinst_names exinst_names) il3

      nl2 = foldl' fixNodes nl (Container.elems il4)

                           (`Node.buildPeers` il4)) nl2

  in if' (null lkp_unknown)

         (Ok cdata { cdNodes = nl3, cdInstances = il4 })

{-

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

  , setSec

  , setMdsk

  , setMcpu

  -- * Tag maps

  , addTags

  , delTags

  , utilLoad :: T.DynUtil -- ^ Sum of instance utilisation

  , pTags    :: TagMap    -- ^ Map of primary instance tags and their count

  , group    :: T.Gdx     -- ^ The node's group (index)

  } deriving (Show, Read, Eq)

instance T.Element Node where

       , utilLoad = T.zeroUtil

       , pTags = Map.empty

       , group = group_init

       }

-- | Conversion formula from mDsk\/tDsk to loDsk.

setMcpu :: Node -> Double -> Node

setMcpu t val = t { mCpu = val, hiCpu = mCpuTohiCpu val (tCpu t) }

-- | Computes the maximum reserved memory for peers from a peer map.

computeMaxRes :: P.PeerMap -> P.Elem

computeMaxRes = P.maxElem

{-

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

  offl  <- arbitrary

  let n = Node.create name (fromIntegral mem_t) mem_n mem_f

          (fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 0

-- and a random node

instance Arbitrary Node.Node where

       Utils.sepSplit '|' . Text.serializeNode defGroupList) n ==

  Just (Node.name n, n)

    -- override failN1 to what loadNode returns by default

testSuite "Text"

            [ 'prop_Text_Load_Instance