Synnefo » snf-ganeti

  , create

  , instanceRunning

  , instanceOffline

  , instanceDown

  , applyIfOnline

  , setIdx

instanceOffline (Instance {runSt = T.AdminOffline}) = True

instanceOffline _                                   = False

-- | Check if instance is down.

instanceDown :: Instance -> Bool

instanceDown inst | instanceRunning inst = False

-- | Apply the function if the instance is online. Otherwise use

-- the initial value

applyIfOnline :: Instance -> (a -> a) -> a -> a

-- | Constant holding the local storage templates.

--

nodeImem node il =

  let rfind = flip Container.find il

      il' = map rfind $ Node.pList node

  in sum . map Instance.mem $ oil'