Revision e79f576c src/Ganeti/HTools/Loader.hs

b/src/Ganeti/HTools/Loader.hs
42 42 

  		





  43
  43
  
    
import Data.List


  		





  44
  44
  
    
import qualified Data.Map as M


  		





  
  45
  
    
import Data.Maybe


  		





  45
  46
  
    
import Text.Printf (printf)


  		





  46
  47
  
    

  		





  47
  48
  
    
import qualified Ganeti.HTools.Container as Container


  		





  ......




  185
  186
  
    

  		





  186
  187
  
    
-- | Extracts the exclusion tags from the cluster configuration.


  		





  187
  188
  
    
extractExTags :: [String] -> [String]


  		





  188
  
  
    
extractExTags =


  		





  189
  
  
    
  map (drop (length exTagsPrefix)) .


  		





  190
  
  
    
  filter (isPrefixOf exTagsPrefix)


  		





  
  189
  
    
extractExTags = filter (not . null) . mapMaybe (chompPrefix exTagsPrefix)


  		





  191
  190
  
    

  		





  192
  191
  
    
-- | Extracts the common suffix from node\/instance names.


  		





  193
  192
  
    
commonSuffix :: Node.List -> Instance.List -> String


  		












Also available in:
  Unified diff