Revision 1a4f3b38 src/Ganeti/Config.hs

b/src/Ganeti/Config.hs
108 108 
  instPrimaryNode inst `S.delete` instDiskNodes inst
109 109 

  		





  110
  110
  
    
-- | Get instances of a given node.


  		





  
  111
  
    
-- The node is specified through its UUID.


  		





  111
  112
  
    
getNodeInstances :: ConfigData -> String -> ([Instance], [Instance])


  		





  112
  113
  
    
getNodeInstances cfg nname =


  		





  113
  114
  
    
    let all_inst = M.elems . fromContainer . configInstances $ cfg


  		












Also available in:
  Unified diff