Revision da4a52a3 src/Ganeti/HTools/Program/Harep.hs
b/src/Ganeti/HTools/Program/Harep.hs | ||
---|---|---|
292 | 292 |
Just ( |
293 | 293 |
ArReinstall, |
294 | 294 |
[ OpInstanceRecreateDisks { opInstanceName = iname |
295 |
, opInstanceUuid = Nothing |
|
295 | 296 |
, opRecreateDisksInfo = RecreateDisksAll |
296 | 297 |
, opNodes = [] |
297 | 298 |
-- FIXME: there should be a better way to |
... | ... | |
303 | 304 |
, opIallocator = mkNonEmpty "hail" |
304 | 305 |
} |
305 | 306 |
, OpInstanceReinstall { opInstanceName = iname |
307 |
, opInstanceUuid = Nothing |
|
306 | 308 |
, opOsType = Nothing |
307 | 309 |
, opTempOsParams = Nothing |
308 | 310 |
, opForceVariant = False |
... | ... | |
312 | 314 |
Just ( |
313 | 315 |
ArFailover, |
314 | 316 |
[ OpInstanceFailover { opInstanceName = iname |
317 |
, opInstanceUuid = Nothing |
|
315 | 318 |
-- FIXME: ditto, see above. |
316 | 319 |
, opShutdownTimeout = fromJust $ mkNonNegative |
317 | 320 |
C.defaultShutdownTimeout |
... | ... | |
326 | 329 |
Just ( |
327 | 330 |
ArFixStorage, |
328 | 331 |
[ OpInstanceReplaceDisks { opInstanceName = iname |
332 |
, opInstanceUuid = Nothing |
|
329 | 333 |
, opReplaceDisksMode = ReplaceNewSecondary |
330 | 334 |
, opReplaceDisksList = [] |
331 | 335 |
, opRemoteNode = Nothing |
... | ... | |
343 | 347 |
Just ( |
344 | 348 |
ArReinstall, |
345 | 349 |
[ OpInstanceRecreateDisks { opInstanceName = iname |
350 |
, opInstanceUuid = Nothing |
|
346 | 351 |
, opRecreateDisksInfo = RecreateDisksAll |
347 | 352 |
, opNodes = [] |
348 | 353 |
-- FIXME: ditto, see above. |
... | ... | |
350 | 355 |
, opIallocator = mkNonEmpty "hail" |
351 | 356 |
} |
352 | 357 |
, OpInstanceReinstall { opInstanceName = iname |
358 |
, opInstanceUuid = Nothing |
|
353 | 359 |
, opOsType = Nothing |
354 | 360 |
, opTempOsParams = Nothing |
355 | 361 |
, opForceVariant = False |
Also available in: Unified diff