Synnefo » snf-ganeti

-- | Get instances of a given node.

getNodeInstances :: ConfigData -> String -> ([Instance], [Instance])

getNodeInstances cfg nname =

        pri_inst = filter ((== nname) . instPrimaryNode) all_inst

        sec_inst = filter ((nname `S.member`) . instSecondaryNodes) all_inst

    in (pri_inst, sec_inst)

-- | Returns the default cluster link.

getDefaultNicLink :: ConfigData -> String

getDefaultNicLink =

-- | Returns instances of a given link.

getInstancesIpByLink :: LinkIpMap -> String -> [String]

-- | Looks up a node.

getNode :: ConfigData -> String -> Result Node

-- | Looks up an instance.

getInstance :: ConfigData -> String -> Result Instance

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

getInstPrimaryNode :: ConfigData -> String -> Result Node

buildLinkIpInstnameMap :: ConfigData -> LinkIpMap

buildLinkIpInstnameMap cfg =

  let cluster = configCluster cfg

      nics = concatMap (\i -> [(instName i, nic) | nic <- instNics i])

             instances

  in foldl' (\accum (iname, nic) ->