Revision f9fc7a63

b/Ganeti/HTools/Cluster.hs
8 8 
module Ganeti.HTools.Cluster
9 9 
    (
10 10 
     -- * Types
11 
     NameList
12 
    , Placement
11 
      Placement
13 12 
    , Solution(..)
14 13 
    , Table(..)
15 14 
    , Removal
b/Ganeti/HTools/Loader.hs
71 71 
                      ac2
72 72 
           ) nl il
73 73 

  		





  74
  
  
    
-- | Compute the longest common suffix of a NameList list that


  		





  
  74
  
    
-- | Compute the longest common suffix of a list of strings that


  		





  75
  75
  
    
-- | starts with a dot


  		





  76
  76
  
    
longestDomain :: [String] -> String


  		





  77
  77
  
    
longestDomain [] = ""


  		












  

    
      b/Ganeti/HTools/Types.hs
    
  






  11
  11
  
    
-- | The node index type


  		





  12
  12
  
    
type Ndx = Int


  		





  13
  13
  
    

  		





  14
  
  
    
-- | The type used to hold idx-to-name mappings


  		





  15
  
  
    
type NameList = [(Int, String)]


  		





  16
  
  
    

  		





  17
  14
  
    
-- | The type used to hold name-to-idx mappings


  		





  18
  15
  
    
type NameAssoc = [(String, Int)]


  		





  19
  16
  
    

  		












Also available in:
  Unified diff