Revision 2849670b Ganeti/HTools/Container.hs
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