Lines Matching refs:response
195 let send_response ty con t rid response =
196 match response with
281 let write_response_log ~ty ~tid ~con ~response =
282 match response with
305 let perform_exn ~wlog txn (request, response) =
308 let response' = input_handle_error ~cons ~doms ~fct ~con:c ~t:txn ~req:request in
309 if wlog then write_response_log ~ty:request.Packet.ty ~tid ~con ~response:response';
310 if not(Packet.response_equal response response') then raise Transaction_again
536 let response =
540 let response = execute () in
543 response
547 let response = try
549 …(* Remember the request and response for this operation in case we need to replay the transaction …
550 Transaction.add_operation ~perm:(Connection.get_perm con) t req response;
551 response
556 (* Put the response on the wire *)
557 send_response ty con t rid response