Revision 139c0683 htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
142 142

  
143 143
-- | The complete state for the balancing solution.
144 144
data Table = Table Node.List Instance.List Score [Placement]
145
             deriving (Show, Read)
145
             deriving (Show)
146 146

  
147 147
-- | Cluster statistics data type.
148 148
data CStats = CStats
......
167 167
  , csNmem :: Integer -- ^ Node own memory
168 168
  , csScore :: Score  -- ^ The cluster score
169 169
  , csNinst :: Int    -- ^ The total number of instances
170
  } deriving (Show, Read)
170
  } deriving (Show)
171 171

  
172 172
-- | A simple type for allocation functions.
173 173
type AllocMethod =  Node.List           -- ^ Node list

Also available in: Unified diff