Revision 497beee2 htools/Ganeti/Objects.hs
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 33 | 33 |
, vTypeFromRaw |
| 34 | 34 |
, HvParams |
| 35 | 35 |
, OsParams |
| 36 |
, NICMode(..) |
|
| 37 | 36 |
, PartialNicParams(..) |
| 38 | 37 |
, FilledNicParams(..) |
| 39 | 38 |
, fillNicParams |
| ... | ... | |
| 168 | 167 |
|
| 169 | 168 |
-- * NIC definitions |
| 170 | 169 |
|
| 171 |
$(declareSADT "NICMode" |
|
| 172 |
[ ("NMBridged", 'C.nicModeBridged)
|
|
| 173 |
, ("NMRouted", 'C.nicModeRouted)
|
|
| 174 |
]) |
|
| 175 |
$(makeJSONInstance ''NICMode) |
|
| 176 |
|
|
| 177 | 170 |
$(buildParam "Nic" "nicp" |
| 178 | 171 |
[ simpleField "mode" [t| NICMode |] |
| 179 | 172 |
, simpleField "link" [t| String |] |
Also available in: Unified diff