Revision 41238d27
| b/src/Ganeti/HTools/Program/Harep.hs | ||
|---|---|---|
| 1 |
{-# LANGUAGE TupleSections #-}
|
|
| 2 |
|
|
| 1 | 3 |
{-| Auto-repair tool for Ganeti.
|
| 2 | 4 |
|
| 3 | 5 |
-} |
| ... | ... | |
| 35 | 37 |
import Data.Maybe |
| 36 | 38 |
import Data.Ord |
| 37 | 39 |
import System.Time |
| 40 |
import qualified Data.Map as Map |
|
| 38 | 41 |
|
| 39 | 42 |
import Ganeti.BasicTypes |
| 40 | 43 |
import Ganeti.Common |
| ... | ... | |
| 461 | 464 |
ArHealthy _ -> doRepair c jobDelay i |
| 462 | 465 |
_ -> const (return i) |
| 463 | 466 |
|
| 464 |
_unused_repairDone <- bracket (L.getClient master) L.closeClient $ |
|
| 465 |
forM (zip iniData' repairs) . maybeRepair |
|
| 467 |
repairDone <- bracket (L.getClient master) L.closeClient $ |
|
| 468 |
forM (zip iniData' repairs) . maybeRepair |
|
| 469 |
|
|
| 470 |
-- Print some stats and exit. |
|
| 471 |
let states = map ((, 1 :: Int) . arStateName . arState) repairDone |
|
| 472 |
counts = Map.fromListWith (+) states |
|
| 466 | 473 |
|
| 467 |
return () |
|
| 474 |
putStrLn "---------------------" |
|
| 475 |
putStrLn "Instance status count" |
|
| 476 |
putStrLn "---------------------" |
|
| 477 |
putStr . unlines . Map.elems $ |
|
| 478 |
Map.mapWithKey (\k v -> k ++ ": " ++ show v) counts |
|
Also available in: Unified diff