Revision 8a8ed513 htools/Ganeti/HTools/Cluster.hs
b/htools/Ganeti/HTools/Cluster.hs | ||
---|---|---|
1225 | 1225 |
ReplaceSecondary _ -> (printf "r:%s" d, [rep d]) |
1226 | 1226 |
ReplaceAndFailover _ -> (printf "r:%s f" c, [rep c, mig]) |
1227 | 1227 |
ReplacePrimary _ -> (printf "f r:%s f" c, [mig, rep c, mig]) |
1228 |
where morf = if Instance.running i then "migrate" else "failover"
|
|
1228 |
where morf = if Instance.instanceRunning i then "migrate" else "failover"
|
|
1229 | 1229 |
mig = printf "%s -f %s" morf inam::String |
1230 | 1230 |
rep n = printf "replace-disks -n %s %s" n inam |
1231 | 1231 |
|
... | ... | |
1325 | 1325 |
printInsts :: Node.List -> Instance.List -> String |
1326 | 1326 |
printInsts nl il = |
1327 | 1327 |
let sil = sortBy (comparing Instance.idx) (Container.elems il) |
1328 |
helper inst = [ if Instance.running inst then "R" else " "
|
|
1328 |
helper inst = [ if Instance.instanceRunning inst then "R" else " "
|
|
1329 | 1329 |
, Instance.name inst |
1330 | 1330 |
, Container.nameOf nl (Instance.pNode inst) |
1331 | 1331 |
, let sdx = Instance.sNode inst |
Also available in: Unified diff