Revision 2849670b

b/Ganeti/HTools/Container.hs
48 48 
    , keys
49 49 
    -- * Element functions
50 50 
    , nameOf
51 
    , maxNameLen
52 51 
    , findByName
53 52 
    ) where
54 53 

  		





  ......




  99
  98
  
    
nameOf :: (T.Element a) => Container a -> Key -> String


  		





  100
  99
  
    
nameOf c k = T.nameOf $ find k c


  		





  101
  100
  
    

  		





  102
  
  
    
-- | Compute the maximum name length in an Element Container.


  		





  103
  
  
    
maxNameLen :: (T.Element a) => Container a -> Int


  		





  104
  
  
    
maxNameLen = maximum . map (length . T.nameOf) . elems


  		





  105
  
  
    

  		





  106
  101
  
    
-- | Find an element by name in a Container; this is a very slow function.


  		





  107
  102
  
    
findByName :: (T.Element a, Monad m) =>


  		





  108
  103
  
    
              Container a -> String -> m a


  		












Also available in:
  Unified diff