diff --git a/Ganeti/HTools/Container.hs b/Ganeti/HTools/Container.hs
index 282115de88742204bcd31c5c2046ea7bb7a40b6c..335c5b965ec45b465d840d123d36fbd2f144a436 100644
--- a/Ganeti/HTools/Container.hs
+++ b/Ganeti/HTools/Container.hs
@@ -48,7 +48,6 @@ module Ganeti.HTools.Container
     , keys
     -- * Element functions
     , nameOf
-    , maxNameLen
     , findByName
     ) where
 
@@ -99,10 +98,6 @@ addTwo k1 v1 k2 v2 = add k1 v1 . add k2 v2
 nameOf :: (T.Element a) => Container a -> Key -> String
 nameOf c k = T.nameOf $ find k c
 
--- | Compute the maximum name length in an Element Container.
-maxNameLen :: (T.Element a) => Container a -> Int
-maxNameLen = maximum . map (length . T.nameOf) . elems
-
 -- | Find an element by name in a Container; this is a very slow function.
 findByName :: (T.Element a, Monad m) =>
               Container a -> String -> m a