Revision 9d4cc8ed

b/htools/Ganeti/Objects.hs
29 29 
-}
30 30 

  		





  31
  31
  
    
module Ganeti.Objects


  		





  32
  
  
    
  ( HvParams


  		





  
  32
  
    
  ( VType(..)


  		





  
  33
  
    
  , vTypeFromRaw


  		





  
  34
  
    
  , HvParams


  		





  33
  35
  
    
  , OsParams


  		





  34
  36
  
    
  , NICMode(..)


  		





  35
  37
  
    
  , PartialNicParams(..)


  		





  ......




  107
  109
  
    
  let updated = Map.union custom defaults


  		





  108
  110
  
    
  in foldl' (flip Map.delete) updated skip_keys


  		





  109
  111
  
    

  		





  
  112
  
    
-- | The VTYPES, a mini-type system in Python.


  		





  
  113
  
    
$(declareSADT "VType"


  		





  
  114
  
    
  [ ("VTypeString",      'C.vtypeString)


  		





  
  115
  
    
  , ("VTypeMaybeString", 'C.vtypeMaybeString)


  		





  
  116
  
    
  , ("VTypeBool",        'C.vtypeBool)


  		





  
  117
  
    
  , ("VTypeSize",        'C.vtypeSize)


  		





  
  118
  
    
  , ("VTypeInt",         'C.vtypeInt)


  		





  
  119
  
    
  ])


  		





  
  120
  
    
$(makeJSONInstance ''VType)


  		





  
  121
  
    

  		





  110
  122
  
    
-- | The hypervisor parameter type. This is currently a simple map,


  		





  111
  123
  
    
-- without type checking on key/value pairs.


  		





  112
  124
  
    
type HvParams = Container JSValue


  		












Also available in:
  Unified diff