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