Revision c92b4671 src/Ganeti/Query/Node.hs

b/src/Ganeti/Query/Node.hs
257 257 

  		





  258
  258
  
    
-- | The node fields map.


  		





  259
  259
  
    
fieldsMap :: FieldMap Node Runtime


  		





  260
  
  
    
fieldsMap =


  		





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


  		





  
  260
  
    
fieldsMap = fieldListToFieldMap nodeFields


  		





  262
  261
  
    

  		





  263
  262
  
    
-- | Create an RPC result for a broken node


  		





  264
  263
  
    
rpcResultNodeBroken :: Node -> (Node, Runtime)


  		












Also available in:
  Unified diff