From 2849670be9f271e795b69640654f5b71445e8cc0 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Mon, 19 Jul 2010 12:23:07 +0200
Subject: [PATCH] Remove obsolete Container.maxNameLen

This was only used in one place (hbal), and is obsolete by the change to
the dual name/alias structure.
---
 Ganeti/HTools/Container.hs | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/Ganeti/HTools/Container.hs b/Ganeti/HTools/Container.hs
index 282115de8..335c5b965 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
-- 
GitLab