Revision d605e261 src/Ganeti/HTools/Program/Harep.hs
| b/src/Ganeti/HTools/Program/Harep.hs | ||
|---|---|---|
| 463 | 463 |
iniData <- exitIfBad "when parsing auto-repair tags" iniDataRes |
| 464 | 464 |
|
| 465 | 465 |
-- First step: check all pending repairs, see if they are completed. |
| 466 |
iniData' <- bracket (L.getClient master) L.closeClient $ |
|
| 466 |
iniData' <- bracket (L.getLuxiClient master) L.closeClient $
|
|
| 467 | 467 |
forM iniData . processPending |
| 468 | 468 |
|
| 469 | 469 |
-- Second step: detect any problems. |
| ... | ... | |
| 476 | 476 |
ArHealthy _ -> doRepair c jobDelay i |
| 477 | 477 |
_ -> const (return i) |
| 478 | 478 |
|
| 479 |
repairDone <- bracket (L.getClient master) L.closeClient $ |
|
| 479 |
repairDone <- bracket (L.getLuxiClient master) L.closeClient $
|
|
| 480 | 480 |
forM (zip iniData' repairs) . maybeRepair |
| 481 | 481 |
|
| 482 | 482 |
-- Print some stats and exit. |
Also available in: Unified diff