Synnefo » snf-ganeti » ganeti-local

-- | Computes the role of a node.

getNodeRole :: ConfigData -> Node -> NodeRole

getNodeRole cfg node

  | nodeMasterCandidate node = NRCandidate

  | nodeDrained node = NRDrained

  | nodeOffline node = NROffline

getItem :: String -> String -> M.Map String a -> Result a

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

       -- if not found by uuid, we need to look it up by name, slow

       Ok grp -> Ok grp

       Bad _ -> let by_name = M.mapKeys

                in getItem "NodeGroup" name by_name

-- | Computes a node group's node params.

                   link = nicpLink fparams

               in case nicIp nic of

                    Nothing -> accum

                                              link accum

                                   newipmap = M.insert ip iname oldipmap

                               in M.insert link newipmap accum