Synnefo » snf-ganeti » ganeti-local

import qualified Data.Set as S

import qualified Text.JSON as J

import Ganeti.BasicTypes

import qualified Ganeti.Constants as C

import Ganeti.Objects

-- | Type alias for the link and ip map.

-- | Generic lookup function that converts from a possible abbreviated

-- name to a full name.

getItem kind name allitems = do

  let lresult = lookupName (M.keys allitems) name

  fullname <- case lrMatchPriority lresult of

                PartialMatch -> Ok $ lrContent lresult

                ExactMatch -> Ok $ lrContent lresult

        M.lookup fullname allitems

-- | Looks up a node.

getNode cfg name = getItem "Node" name (fromContainer $ configNodes cfg)

-- | Looks up an instance.

getInstance cfg name =

  getItem "Instance" name (fromContainer $ configInstances cfg)

-- | Looks up a node group. This is more tricky than for

-- node/instances since the groups map is indexed by uuid, not name.

getGroup cfg name =

  let groups = fromContainer (configNodegroups cfg)

  in case getItem "NodeGroup" name groups of

  (concatMap fst ginsts, concatMap snd ginsts)

-- | Looks up an instance's primary node.

getInstPrimaryNode cfg name =

  liftM instPrimaryNode (getInstance cfg name) >>= getNode cfg