Skip to content

Commit fe87c5a

Browse files
committed
Use Lwt PPX sequencing operator
1 parent 5426777 commit fe87c5a

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/http/http.ml

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -495,10 +495,8 @@ let serve_with_details
495495
match network with
496496
| `Unix path ->
497497
(* Optimistically delete the socket file, if any. *)
498-
let%lwt () =
499-
try%lwt Lwt_unix.unlink path
500-
with Unix.Unix_error (ENOENT, _, _) -> Lwt.return_unit
501-
in
498+
(try%lwt Lwt_unix.unlink path
499+
with Unix.Unix_error (ENOENT, _, _) -> Lwt.return_unit);%lwt
502500
Lwt.return (Lwt_unix.ADDR_UNIX path)
503501
| `Inet port ->
504502
let%lwt addresses =

0 commit comments

Comments
 (0)