Revision a06a4dac src/Ganeti/HTools/Loader.hs
| b/src/Ganeti/HTools/Loader.hs | ||
|---|---|---|
| 28 | 28 |
|
| 29 | 29 |
module Ganeti.HTools.Loader |
| 30 | 30 |
( mergeData |
| 31 |
, clearDynU |
|
| 31 | 32 |
, checkData |
| 32 | 33 |
, assignIndices |
| 33 | 34 |
, setMaster |
| ... | ... | |
| 288 | 289 |
(Ok cdata { cdNodes = nl3, cdInstances = il5 })
|
| 289 | 290 |
(Bad $ "Unknown instance(s): " ++ show(map lrContent lkp_unknown)) |
| 290 | 291 |
|
| 292 |
-- | In a cluster description, clear dynamic utilisation information. |
|
| 293 |
clearDynU :: ClusterData -> Result ClusterData |
|
| 294 |
clearDynU cdata@(ClusterData _ _ il _ _) = |
|
| 295 |
let il2 = Container.map (\ inst -> inst {Instance.util = zeroUtil }) il
|
|
| 296 |
in Ok cdata { cdInstances = il2 }
|
|
| 297 |
|
|
| 291 | 298 |
-- | Checks the cluster data for consistency. |
| 292 | 299 |
checkData :: Node.List -> Instance.List |
| 293 | 300 |
-> ([String], Node.List) |
Also available in: Unified diff