Remove an unused type synonim

diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index 1bf6524..9a952a4 100644 (file)
--- a/Ganeti/HTools/Cluster.hs
+++ b/Ganeti/HTools/Cluster.hs
@@ -8,8 +8,7 @@ goes into the "Main" module for the individual binaries.
 module Ganeti.HTools.Cluster
     (
      -- * Types
-     NameList
-    , Placement
+      Placement
     , Solution(..)
     , Table(..)
     , Removal

diff --git a/Ganeti/HTools/Loader.hs b/Ganeti/HTools/Loader.hs
index 0aac79a..03a1ac4 100644 (file)
--- a/Ganeti/HTools/Loader.hs
+++ b/Ganeti/HTools/Loader.hs
@@ -71,7 +71,7 @@ fixNodes nl il =
                       ac2
            ) nl il
 
--- | Compute the longest common suffix of a NameList list that
+-- | Compute the longest common suffix of a list of strings that
 -- | starts with a dot
 longestDomain :: [String] -> String
 longestDomain [] = ""

diff --git a/Ganeti/HTools/Types.hs b/Ganeti/HTools/Types.hs
index 116b3ee..3066f31 100644 (file)
--- a/Ganeti/HTools/Types.hs
+++ b/Ganeti/HTools/Types.hs
@@ -11,9 +11,6 @@ type Idx = Int
 -- | The node index type
 type Ndx = Int
 
--- | The type used to hold idx-to-name mappings
-type NameList = [(Int, String)]
-
 -- | The type used to hold name-to-idx mappings
 type NameAssoc = [(String, Int)]