Lines Matching refs:response
191 let send_response ty con t rid response =
192 match response with
277 let write_response_log ~ty ~tid ~con ~response =
278 match response with
301 let perform_exn ~wlog txn (request, response) =
304 let response' = input_handle_error ~cons ~doms ~fct ~con:c ~t:txn ~req:request in
305 if wlog then write_response_log ~ty:request.Packet.ty ~tid ~con ~response:response';
306 if not(Packet.response_equal response response') then raise Transaction_again
514 let response =
518 let response = execute () in
521 response
525 let response = try
527 …(* Remember the request and response for this operation in case we need to replay the transaction …
528 Transaction.add_operation ~perm:(Connection.get_perm con) t req response;
529 response
534 (* Put the response on the wire *)
535 send_response ty con t rid response