Revision 381be58a

b/Ganeti/HTools/Loader.hs
153 153 
    map (drop (length exTagsPrefix)) .
154 154 
    filter (isPrefixOf exTagsPrefix)
155 155 

  		





  156
  
  
    
-- | Extracts the common suffix from node/instance names


  		





  
  156
  
    
-- | Extracts the common suffix from node\/instance names


  		





  157
  157
  
    
commonSuffix :: Node.List -> Instance.List -> String


  		





  158
  158
  
    
commonSuffix nl il =


  		





  159
  159
  
    
    let node_names = map Node.name $ Container.elems nl


  		












Also available in:
  Unified diff