Revision 5850e990 htools/Ganeti/HTools/Cluster.hs
b/htools/Ganeti/HTools/Cluster.hs | ||
---|---|---|
1260 | 1260 |
ReplacePrimary _ -> (printf "f r:%s f" c, [mig, rep c, mig]) |
1261 | 1261 |
where morf = if Instance.isRunning i then "migrate" else "failover" |
1262 | 1262 |
mig = printf "%s -f %s" morf inam::String |
1263 |
mig_any = printf "%s -f -n %s %s" morf c inam |
|
1264 |
rep n = printf "replace-disks -n %s %s" n inam |
|
1263 |
mig_any = printf "%s -f -n %s %s" morf c inam::String
|
|
1264 |
rep n = printf "replace-disks -n %s %s" n inam::String
|
|
1265 | 1265 |
|
1266 | 1266 |
-- | Converts a placement to string format. |
1267 | 1267 |
printSolutionLine :: Node.List -- ^ The node list |
... | ... | |
1285 | 1285 |
(moves, cmds) = computeMoves inst inam mv npri nsec |
1286 | 1286 |
-- FIXME: this should check instead/also the disk template |
1287 | 1287 |
ostr = if old_sec == Node.noSecondary |
1288 |
then printf "%s" opri |
|
1289 |
else printf "%s:%s" opri osec |
|
1288 |
then printf "%s" opri::String
|
|
1289 |
else printf "%s:%s" opri osec::String
|
|
1290 | 1290 |
nstr = if s == Node.noSecondary |
1291 |
then printf "%s" npri |
|
1292 |
else printf "%s:%s" npri nsec |
|
1291 |
then printf "%s" npri::String
|
|
1292 |
else printf "%s:%s" npri nsec::String
|
|
1293 | 1293 |
in (printf " %3d. %-*s %-*s => %-*s %12.8f a=%s" |
1294 |
pos imlen inam pmlen (ostr::String) |
|
1295 |
pmlen (nstr::String) c moves, |
|
1294 |
pos imlen inam pmlen ostr pmlen nstr c moves, |
|
1296 | 1295 |
cmds) |
1297 | 1296 |
|
1298 | 1297 |
-- | Return the instance and involved nodes in an instance move. |
Also available in: Unified diff