Skip to content

Commit

Permalink
Merge pull request #177 from inhabitedtype/rm-flush-response-body
Browse files Browse the repository at this point in the history
rm-flush-response-body: inline it
  • Loading branch information
seliopou authored May 7, 2020
2 parents e51aaac + 3fa50f6 commit e346a1e
Showing 1 changed file with 4 additions and 7 deletions.
11 changes: 4 additions & 7 deletions lib/server_connection.ml
Original file line number Diff line number Diff line change
Expand Up @@ -268,15 +268,12 @@ let read t bs ~off ~len =
let read_eof t bs ~off ~len =
read_with_more t bs ~off ~len Complete

let flush_response_body t =
if is_active t then
let reqd = current_reqd_exn t in
Reqd.flush_response_body reqd
;;

let next_write_operation t =
advance_request_queue_if_necessary t;
flush_response_body t;
if is_active t
then (
let reqd = current_reqd_exn t in
Reqd.flush_response_body reqd);
Writer.next t.writer

let report_write_result t result =
Expand Down

0 comments on commit e346a1e

Please sign in to comment.