Revision 8c72f711 src/Ganeti/HTools/Loader.hs

b/src/Ganeti/HTools/Loader.hs
34 34 
  , lookupNode
35 35 
  , lookupInstance
36 36 
  , lookupGroup
37 
  , eitherLive
37 38 
  , commonSuffix
38 39 
  , RqType(..)
39 40 
  , Request(..)
......
332 333 
  let rfind = flip Container.find il
333 334 
  in sum . map (Instance.dsk . rfind)
334 335 
       $ Node.pList node ++ Node.sList node
336 

  		





  
  337
  
    
-- | Get live information or a default value


  		





  
  338
  
    
eitherLive :: (Monad m) => Bool -> a -> m a -> m a


  		





  
  339
  
    
eitherLive True _ live_data = live_data


  		





  
  340
  
    
eitherLive False def_data _ = return def_data


  		












Also available in:
  Unified diff