Revision 2cdaf225 htools/Ganeti/HTools/Program/Hcheck.hs
| b/htools/Ganeti/HTools/Program/Hcheck.hs | ||
|---|---|---|
| 188 | 188 |
unless (verbose == 0) $ do |
| 189 | 189 |
putStrLn "" |
| 190 | 190 |
putStr prefix |
| 191 |
mapM_ (\(a,b) -> printf " %s: %s\n" a b) (zip descr values)
|
|
| 191 |
mapM_ (uncurry (printf " %s: %s\n")) (zip descr values)
|
|
| 192 | 192 |
|
| 193 | 193 |
-- | Extract name or idx from group. |
| 194 | 194 |
extractGroupData :: Bool -> Group.Group -> String |
| ... | ... | |
| 230 | 230 |
perGroupChecks gl (gidx, (nl, il)) = |
| 231 | 231 |
let grp = Container.find gidx gl |
| 232 | 232 |
offnl = filter Node.offline (Container.elems nl) |
| 233 |
n1violated = length $ fst $ Cluster.computeBadItems nl il
|
|
| 233 |
n1violated = length . fst $ Cluster.computeBadItems nl il
|
|
| 234 | 234 |
conflicttags = length $ filter (>0) |
| 235 | 235 |
(map Node.conflictingPrimaries (Container.elems nl)) |
| 236 | 236 |
offline_pri = sum . map length $ map Node.pList offnl |
| ... | ... | |
| 335 | 335 |
|
| 336 | 336 |
printFinalHTC machineread |
| 337 | 337 |
|
| 338 |
unless exitOK $ exitWith $ ExitFailure 1 |
|
| 338 |
unless exitOK . exitWith $ ExitFailure 1 |
|
Also available in: Unified diff