Revision 0eb83d70 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