diff options
| author | John Estabrook <jestabro@vyos.io> | 2024-10-23 18:50:46 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2024-10-27 21:49:53 -0500 |
| commit | aae8fbf9ed3b1e141d3e226e9cface6e453d790e (patch) | |
| tree | be8826754a40e6c26ffc0f448f9128a1e8ff1d23 /src/vyconfd.ml | |
| parent | 54c0bb263de60e328a3af62e1faccf2bfeb05df0 (diff) | |
| download | vyconf-aae8fbf9ed3b1e141d3e226e9cface6e453d790e.tar.gz vyconf-aae8fbf9ed3b1e141d3e226e9cface6e453d790e.zip | |
T6718: handle_connection should close fd on End_of_file
Diffstat (limited to 'src/vyconfd.ml')
| -rw-r--r-- | src/vyconfd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vyconfd.ml b/src/vyconfd.ml index 16f41a6..0b49ca4 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -187,7 +187,7 @@ let rec handle_connection world ic oc () = let%lwt () = Lwt_log.error e in let%lwt () = send_response oc ({response_tmpl with status=Fail; error=(Some e)}) in handle_connection world ic oc () - | End_of_file -> Lwt_log.info "Connection closed" >>= return + | End_of_file -> Lwt_log.info "Connection closed" >>= (fun () -> Lwt_io.close ic) >>= return let accept_connection world conn = let fd, _ = conn in |