Revision 1ab94e48
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 109 | 109 |
{ esMoved :: [(Idx, Gdx, [Ndx])] -- ^ Instances moved successfully
|
| 110 | 110 |
, esFailed :: [(Idx, String)] -- ^ Instances which were not |
| 111 | 111 |
-- relocated |
| 112 |
, esOpCodes :: [[[OpCodes.OpCode]]] -- ^ List of lists of jobs
|
|
| 112 |
, esOpCodes :: [[OpCodes.OpCode]] -- ^ List of jobs
|
|
| 113 | 113 |
} |
| 114 | 114 |
|
| 115 | 115 |
-- | Allocation results, as used in 'iterateAlloc' and 'tieredAlloc'. |
| ... | ... | |
| 1085 | 1085 |
(nl, il, es { esFailed = (idx, msg):esFailed es})
|
| 1086 | 1086 |
updateEvacSolution (_, _, es) idx (Ok (nl, il, opcodes)) = |
| 1087 | 1087 |
(nl, il, es { esMoved = new_elem:esMoved es
|
| 1088 |
, esOpCodes = [opcodes]:esOpCodes es })
|
|
| 1088 |
, esOpCodes = opcodes:esOpCodes es })
|
|
| 1089 | 1089 |
where inst = Container.find idx il |
| 1090 | 1090 |
new_elem = (idx, |
| 1091 | 1091 |
instancePriGroup nl inst, |
Also available in: Unified diff