diff options
| -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 |