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