Revision 5cfa6c37 src/Ganeti/Types.hs
b/src/Ganeti/Types.hs | ||
---|---|---|
70 | 70 |
, IAllocatorTestDir(..) |
71 | 71 |
, IAllocatorMode(..) |
72 | 72 |
, iAllocatorModeToRaw |
73 |
, NetworkType(..) |
|
74 |
, networkTypeToRaw |
|
75 | 73 |
, NICMode(..) |
76 | 74 |
, nICModeToRaw |
77 | 75 |
, JobStatus(..) |
... | ... | |
359 | 357 |
]) |
360 | 358 |
$(THH.makeJSONInstance ''IAllocatorMode) |
361 | 359 |
|
362 |
-- | Network type. |
|
363 |
$(THH.declareSADT "NetworkType" |
|
364 |
[ ("PrivateNetwork", 'C.networkTypePrivate) |
|
365 |
, ("PublicNetwork", 'C.networkTypePublic) |
|
366 |
]) |
|
367 |
$(THH.makeJSONInstance ''NetworkType) |
|
368 |
|
|
369 | 360 |
-- | Netork mode. |
370 | 361 |
$(THH.declareSADT "NICMode" |
371 | 362 |
[ ("NMBridged", 'C.nicModeBridged) |
Also available in: Unified diff