diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index 1bf65242728a04205535e51f083569553569db73..9a952a49d5ba580f1012e8aebda7118d3c359c68 100644
--- 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 0aac79af7df3f5ddaad45bc2a9aecb75b2f46f87..03a1ac4bf63882cdb68ec4f7c004a66c6e078ef1 100644
--- 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 116b3eee16e779b127705b39dd698e2d3a3d7ce6..3066f314b778d0c13587c8f80ddb5dc0216b2fdf 100644
--- 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)]