Commit f9fc7a63 authored by Iustin Pop's avatar Iustin Pop
Browse files

Remove an unused type synonim

parent 5a1edeb6
...@@ -8,8 +8,7 @@ goes into the "Main" module for the individual binaries. ...@@ -8,8 +8,7 @@ goes into the "Main" module for the individual binaries.
module Ganeti.HTools.Cluster module Ganeti.HTools.Cluster
( (
-- * Types -- * Types
NameList Placement
, Placement
, Solution(..) , Solution(..)
, Table(..) , Table(..)
, Removal , Removal
......
...@@ -71,7 +71,7 @@ fixNodes nl il = ...@@ -71,7 +71,7 @@ fixNodes nl il =
ac2 ac2
) nl il ) 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 -- | starts with a dot
longestDomain :: [String] -> String longestDomain :: [String] -> String
longestDomain [] = "" longestDomain [] = ""
......
...@@ -11,9 +11,6 @@ type Idx = Int ...@@ -11,9 +11,6 @@ type Idx = Int
-- | The node index type -- | The node index type
type Ndx = Int 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 -- | The type used to hold name-to-idx mappings
type NameAssoc = [(String, Int)] type NameAssoc = [(String, Int)]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment