Revision bdd6931c htools/Ganeti/HTools/Cluster.hs
b/htools/Ganeti/HTools/Cluster.hs | ||
---|---|---|
864 | 864 |
failOnSecondaryChange mode dt >> |
865 | 865 |
fail "Block device relocations not implemented yet" |
866 | 866 |
|
867 |
nodeEvacInstance _ _ mode (Instance.Instance |
|
868 |
{Instance.diskTemplate = dt@DTRbd}) _ _ = |
|
869 |
failOnSecondaryChange mode dt >> |
|
870 |
fail "Rbd relocations not implemented yet" |
|
871 |
|
|
867 | 872 |
nodeEvacInstance nl il ChangePrimary |
868 | 873 |
inst@(Instance.Instance {Instance.diskTemplate = DTDrbd8}) |
869 | 874 |
_ _ = |
Also available in: Unified diff