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 1bf652427..9a952a49d 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 0aac79af7..03a1ac4bf 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 116b3eee1..3066f314b 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)]
--
GitLab