Revision bef83fd1
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 909 | 909 |
failOnSecondaryChange mode dt >> |
| 910 | 910 |
fail "Block device relocations not implemented yet" |
| 911 | 911 |
|
| 912 |
nodeEvacInstance nl il ChangePrimary |
|
| 913 |
inst@(Instance.Instance {Instance.diskTemplate = DTDrbd8}) _ =
|
|
| 914 |
do |
|
| 915 |
(nl', inst', _, _) <- opToResult $ applyMove nl inst Failover |
|
| 916 |
let idx = Instance.idx inst |
|
| 917 |
il' = Container.add idx inst' il |
|
| 918 |
ops = iMoveToJob nl' il' idx Failover |
|
| 919 |
return (nl', il', ops) |
|
| 920 |
|
|
| 912 | 921 |
nodeEvacInstance _ _ _ (Instance.Instance |
| 913 | 922 |
{Instance.diskTemplate = DTDrbd8}) _ =
|
| 914 | 923 |
fail "DRBD relocations not implemented yet" |
Also available in: Unified diff