Revision 6f732ae0
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 166 | 166 |
roleDescription NRCandidate = "master candidate" |
| 167 | 167 |
roleDescription NRMaster = "master" |
| 168 | 168 |
|
| 169 |
-- * Network definitions |
|
| 170 |
|
|
| 171 |
-- FIXME: Not all types might be correct here, since they |
|
| 172 |
-- haven't been exhaustively deduced from the python code yet. |
|
| 173 |
$(buildObject "Network" "network" $ |
|
| 174 |
[ simpleField "name" [t| NonEmptyString |] |
|
| 175 |
, optionalField $ |
|
| 176 |
simpleField "network_type" [t| NetworkType |] |
|
| 177 |
, optionalField $ |
|
| 178 |
simpleField "mac_prefix" [t| String |] |
|
| 179 |
, optionalField $ |
|
| 180 |
simpleField "family" [t| Int |] |
|
| 181 |
, simpleField "network" [t| NonEmptyString |] |
|
| 182 |
, optionalField $ |
|
| 183 |
simpleField "network6" [t| String |] |
|
| 184 |
, optionalField $ |
|
| 185 |
simpleField "gateway" [t| String |] |
|
| 186 |
, optionalField $ |
|
| 187 |
simpleField "gateway6" [t| String |] |
|
| 188 |
, optionalField $ |
|
| 189 |
simpleField "size" [t| J.JSValue |] |
|
| 190 |
, optionalField $ |
|
| 191 |
simpleField "reservations" [t| String |] |
|
| 192 |
, optionalField $ |
|
| 193 |
simpleField "ext_reservations" [t| String |] |
|
| 194 |
] |
|
| 195 |
++ serialFields |
|
| 196 |
++ tagsFields) |
|
| 197 |
|
|
| 198 |
instance SerialNoObject Network where |
|
| 199 |
serialOf = networkSerial |
|
| 200 |
|
|
| 201 |
instance TagsObject Network where |
|
| 202 |
tagsOf = networkTags |
|
| 203 |
|
|
| 169 | 204 |
-- * NIC definitions |
| 170 | 205 |
|
| 171 | 206 |
$(buildParam "Nic" "nicp" |
| ... | ... | |
| 592 | 627 |
|
| 593 | 628 |
instance SerialNoObject ConfigData where |
| 594 | 629 |
serialOf = configSerial |
| 595 |
|
|
| 596 |
-- * Network definitions |
|
| 597 |
|
|
| 598 |
-- FIXME: Not all types might be correct here, since they |
|
| 599 |
-- haven't been exhaustively deduced from the python code yet. |
|
| 600 |
$(buildObject "Network" "network" $ |
|
| 601 |
[ simpleField "name" [t| NonEmptyString |] |
|
| 602 |
, optionalField $ |
|
| 603 |
simpleField "network_type" [t| NetworkType |] |
|
| 604 |
, optionalField $ |
|
| 605 |
simpleField "mac_prefix" [t| String |] |
|
| 606 |
, optionalField $ |
|
| 607 |
simpleField "family" [t| Int |] |
|
| 608 |
, simpleField "network" [t| NonEmptyString |] |
|
| 609 |
, optionalField $ |
|
| 610 |
simpleField "network6" [t| String |] |
|
| 611 |
, optionalField $ |
|
| 612 |
simpleField "gateway" [t| String |] |
|
| 613 |
, optionalField $ |
|
| 614 |
simpleField "gateway6" [t| String |] |
|
| 615 |
, optionalField $ |
|
| 616 |
simpleField "size" [t| J.JSValue |] |
|
| 617 |
, optionalField $ |
|
| 618 |
simpleField "reservations" [t| String |] |
|
| 619 |
, optionalField $ |
|
| 620 |
simpleField "ext_reservations" [t| String |] |
|
| 621 |
] |
|
| 622 |
++ serialFields |
|
| 623 |
++ tagsFields) |
|
| 624 |
|
|
| 625 |
instance SerialNoObject Network where |
|
| 626 |
serialOf = networkSerial |
|
| 627 |
|
|
| 628 |
instance TagsObject Network where |
|
| 629 |
tagsOf = networkTags |
|
| 630 |
|
|
Also available in: Unified diff