Revision 6bc39970 Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
70 70
    | Relocate Idx Int [Ndx]         -- ^ Move an instance to a new
71 71
                                     -- secondary node
72 72
    | Evacuate [Ndx]                 -- ^ Evacuate nodes
73
    deriving (Show)
73
    deriving (Show, Read)
74 74

  
75 75
-- | A complete request, as received from Ganeti.
76 76
data Request = Request RqType ClusterData
77
    deriving (Show)
77
    deriving (Show, Read)
78 78

  
79 79
-- | The cluster state.
80 80
data ClusterData = ClusterData
......
82 82
    , cdNodes     :: Node.List     -- ^ The node list
83 83
    , cdInstances :: Instance.List -- ^ The instance list
84 84
    , cdTags      :: [String]      -- ^ The cluster tags
85
    } deriving (Show)
85
    } deriving (Show, Read)
86 86

  
87 87
-- | An empty cluster.
88 88
emptyCluster :: ClusterData

Also available in: Unified diff