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