From f9fc7a63140ed5b2d06fcdbdf2018295a00f9c87 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Wed, 27 May 2009 21:01:20 +0100
Subject: [PATCH] Remove an unused type synonim

---
 Ganeti/HTools/Cluster.hs |    3 +--
 Ganeti/HTools/Loader.hs  |    2 +-
 Ganeti/HTools/Types.hs   |    3 ---
 3 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index 1bf6524..9a952a4 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 0aac79a..03a1ac4 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 116b3ee..3066f31 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)]
 
-- 
1.7.10.4