Revision 332a83ca src/Ganeti/Confd/Server.hs

b/src/Ganeti/Confd/Server.hs
242 242 
                 (a, b, c, d, e, f) <- minors]
243 243 
  return (ReplyStatusOk, J.showJSON encoded)
244 244 

  		





  
  245
  
    
buildResponse cdata req@(ConfdRequest { confdRqType = ReqNodeInstances }) = do


  		





  
  246
  
    
  let cfg = fst cdata


  		





  
  247
  
    
  node_name <- case confdRqQuery req of


  		





  
  248
  
    
                PlainQuery str -> return str


  		





  
  249
  
    
                _ -> fail $ "Invalid query type " ++ show (confdRqQuery req)


  		





  
  250
  
    
  let instances = getNodeInstances cfg node_name


  		





  
  251
  
    
  return (ReplyStatusOk, J.showJSON instances)


  		





  
  252
  
    

  		





  245
  253
  
    
-- | Creates a ConfdReply from a given answer.


  		





  246
  254
  
    
serializeResponse :: Result StatusAnswer -> ConfdReply


  		





  247
  255
  
    
serializeResponse r =


  		












Also available in:
  Unified diff