Revision 71375ef7 htools/Ganeti/HTools/Program/Hspace.hs
| b/htools/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 397 | 397 |
req_nodes = Instance.requiredNodes disk_template |
| 398 | 398 |
machine_r = optMachineReadable opts |
| 399 | 399 |
|
| 400 |
(ClusterData gl fixed_nl il ctags) <- loadExternalData opts
|
|
| 400 |
orig_cdata@(ClusterData gl fixed_nl il _ _) <- loadExternalData opts
|
|
| 401 | 401 |
nl <- setNodeStatus opts fixed_nl |
| 402 | 402 |
|
| 403 | 403 |
let num_instances = Container.size il |
| 404 | 404 |
all_nodes = Container.elems fixed_nl |
| 405 |
cdata = ClusterData gl nl il ctags
|
|
| 405 |
cdata = orig_cdata { cdNodes = fixed_nl }
|
|
| 406 | 406 |
csf = commonSuffix fixed_nl il |
| 407 | 407 |
|
| 408 | 408 |
when (not (null csf) && verbose > 1) $ |
Also available in: Unified diff