Revision 61bbbed7 htools/Ganeti/HTools/Loader.hs

b/htools/Ganeti/HTools/Loader.hs
306 306 
        (\ msgs node ->
307 307 
             let nname = Node.name node
308 308 
                 nilst = map (`Container.find` il) (Node.pList node)
309 
                 dilst = filter (not . Instance.instanceRunning) nilst
309 
                 dilst = filter Instance.instanceDown nilst
310 310 
                 adj_mem = sum . map Instance.mem $ dilst
311 311 
                 delta_mem = truncate (Node.tMem node)
312 312 
                             - Node.nMem node
......
329 329 
nodeImem :: Node.Node -> Instance.List -> Int
330 330 
nodeImem node il =
331 331 
    let rfind = flip Container.find il
332 
    in sum . map (Instance.mem . rfind)
333 
           $ Node.pList node
332 
        il' = map rfind $ Node.pList node
333 
        oil' = filter (not . Instance.instanceOffline) il'
334 
    in sum . map Instance.mem $ oil'
335 

  		





  334
  336
  
    

  		





  335
  337
  
    
-- | Compute the amount of disk used by instances on a node (either primary


  		





  336
  338
  
    
-- or secondary).


  		












Also available in:
  Unified diff