Revision da45c352 htools/Ganeti/Objects.hs
b/htools/Ganeti/Objects.hs | ||
---|---|---|
53 | 53 |
, FilledNDParams(..) |
54 | 54 |
, fillNDParams |
55 | 55 |
, Node(..) |
56 |
, NodeRole(..) |
|
57 |
, nodeRoleToRaw |
|
58 |
, roleDescription |
|
56 | 59 |
, AllocPolicy(..) |
57 | 60 |
, FilledISpecParams(..) |
58 | 61 |
, PartialISpecParams(..) |
... | ... | |
125 | 128 |
class TagsObject a where |
126 | 129 |
tagsOf :: a -> Set.Set String |
127 | 130 |
|
131 |
-- * Node role object |
|
132 |
|
|
133 |
$(declareSADT "NodeRole" |
|
134 |
[ ("NROffline", 'C.nrOffline) |
|
135 |
, ("NRDrained", 'C.nrDrained) |
|
136 |
, ("NRRegular", 'C.nrRegular) |
|
137 |
, ("NRCandidate", 'C.nrMcandidate) |
|
138 |
, ("NRMaster", 'C.nrMaster) |
|
139 |
]) |
|
140 |
$(makeJSONInstance ''NodeRole) |
|
141 |
|
|
142 |
-- | The description of the node role. |
|
143 |
roleDescription :: NodeRole -> String |
|
144 |
roleDescription NROffline = "offline" |
|
145 |
roleDescription NRDrained = "drained" |
|
146 |
roleDescription NRRegular = "regular" |
|
147 |
roleDescription NRCandidate = "master candidate" |
|
148 |
roleDescription NRMaster = "master" |
|
149 |
|
|
128 | 150 |
-- * NIC definitions |
129 | 151 |
|
130 | 152 |
$(declareSADT "NICMode" |
Also available in: Unified diff