Revision 2485487d Ganeti/HTools/Cluster.hs
| b/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 483 | 483 |
|
| 484 | 484 |
tryAlloc nl _ inst 1 = |
| 485 | 485 |
let all_nodes = getOnline nl |
| 486 |
sols = foldl' (\cstate p ->
|
|
| 487 |
concatAllocs cstate $ allocateOnSingle nl inst p
|
|
| 486 |
sols = foldl' (\cstate -> |
|
| 487 |
concatAllocs cstate . allocateOnSingle nl inst
|
|
| 488 | 488 |
) ([], 0, Nothing) all_nodes |
| 489 | 489 |
in return sols |
| 490 | 490 |
|
Also available in: Unified diff