Revision c92b4671 src/Ganeti/Query/Network.hs

b/src/Ganeti/Query/Network.hs
94 94 

  		





  95
  95
  
    
-- | The group fields map.


  		





  96
  96
  
    
fieldsMap :: FieldMap Network NoDataRuntime


  		





  97
  
  
    
fieldsMap =


  		





  98
  
  
    
  Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) networkFields


  		





  
  97
  
    
fieldsMap = fieldListToFieldMap networkFields


  		





  99
  98
  
    

  		





  100
  99
  
    
-- TODO: the following fields are not implemented yet: external_reservations


  		





  101
  100
  
    

  		












Also available in:
  Unified diff