Server.create: add ?on_exn

mirage · Dec 18, 2016 · 09c2d14 · 09c2d14
1 parent ee396e4
commit 09c2d14
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lwt/cohttp_lwt_unix.ml b/lwt/cohttp_lwt_unix.ml
@@ -83,8 +83,8 @@ module Server = struct
         respond_not_found ()
       | exn -> Lwt.fail exn)
 
-  let create ?timeout ?stop ?(ctx=Cohttp_lwt_unix_net.default_ctx)
+  let create ?timeout ?stop ?on_exn ?(ctx=Cohttp_lwt_unix_net.default_ctx)
         ?(mode=`TCP (`Port 8080)) spec =
-    Conduit_lwt_unix.serve ?timeout ?stop ~ctx:ctx.Cohttp_lwt_unix_net.ctx
+    Conduit_lwt_unix.serve ?timeout ?stop ?on_exn ~ctx:ctx.Cohttp_lwt_unix_net.ctx
       ~mode (callback spec)
 end
diff --git a/lwt/cohttp_lwt_unix.mli b/lwt/cohttp_lwt_unix.mli
@@ -68,6 +68,7 @@ module Server : sig
   val create :
     ?timeout:int ->
     ?stop:unit Lwt.t ->
+    ?on_exn:(exn -> unit) ->
     ?ctx:Cohttp_lwt_unix_net.ctx ->
     ?mode:Conduit_lwt_unix.server -> t -> unit Lwt.t
 end