Revision 8d239fa4 htools/Ganeti/Types.hs
b/htools/Ganeti/Types.hs | ||
---|---|---|
67 | 67 |
, IAllocatorTestDir(..) |
68 | 68 |
, IAllocatorMode(..) |
69 | 69 |
, iAllocatorModeToRaw |
70 |
, NetworkType(..) |
|
71 |
, networkTypeToRaw |
|
70 | 72 |
, NICMode(..) |
71 | 73 |
, nICModeToRaw |
72 | 74 |
) where |
... | ... | |
317 | 319 |
]) |
318 | 320 |
$(THH.makeJSONInstance ''IAllocatorMode) |
319 | 321 |
|
322 |
-- | Network type. |
|
323 |
$(THH.declareSADT "NetworkType" |
|
324 |
[ ("PrivateNetwork", 'C.networkTypePrivate) |
|
325 |
, ("PublicNetwork", 'C.networkTypePublic) |
|
326 |
]) |
|
327 |
$(THH.makeJSONInstance ''NetworkType) |
|
328 |
|
|
320 | 329 |
-- | Netork mode. |
321 | 330 |
$(THH.declareSADT "NICMode" |
322 | 331 |
[ ("NMBridged", 'C.nicModeBridged) |
Also available in: Unified diff