Revision 497beee2 htools/Ganeti/Types.hs

b/htools/Ganeti/Types.hs
67 67
  , IAllocatorTestDir(..)
68 68
  , IAllocatorMode(..)
69 69
  , iAllocatorModeToRaw
70
  , NICMode(..)
71
  , nICModeToRaw
70 72
  ) where
71 73

  
72 74
import qualified Text.JSON as JSON
......
314 316
  , ("IAllocatorChangeGroup", 'C.iallocatorModeChgGroup)
315 317
  ])
316 318
$(THH.makeJSONInstance ''IAllocatorMode)
319

  
320
-- | Netork mode.
321
$(THH.declareSADT "NICMode"
322
  [ ("NMBridged", 'C.nicModeBridged)
323
  , ("NMRouted",  'C.nicModeRouted)
324
  ])
325
$(THH.makeJSONInstance ''NICMode)

Also available in: Unified diff