Add a pp function for Lwt_engine.Ev_backend.t (suggested by @avsm).

ocsigen · Sep 16, 2016 · 268bc37 · 268bc37
1 parent c0c8597
commit 268bc37
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/src/unix/lwt_engine.ml b/src/unix/lwt_engine.ml
@@ -146,6 +146,17 @@ struct
   let kqueue = EV_KQUEUE
   let devpoll = EV_DEVPOLL
   let port = EV_PORT
+
+  let name = function
+    | EV_DEFAULT -> "EV_DEFAULT"
+    | EV_SELECT -> "EV_SELECT"
+    | EV_POLL -> "EV_POLL"
+    | EV_EPOLL -> "EV_EPOLL"
+    | EV_KQUEUE -> "EV_KQUEUE"
+    | EV_DEVPOLL -> "EV_DEVPOLL"
+    | EV_PORT -> "EV_PORT"
+
+  let pp fmt t = Format.pp_print_string fmt (name t)
 end
 
 external ev_init : Ev_backend.t -> ev_loop = "lwt_libev_init"

diff --git a/src/unix/lwt_engine.mli b/src/unix/lwt_engine.mli
@@ -139,6 +139,8 @@ sig
   val kqueue : t
   val devpoll : t
   val port : t
+
+  val pp : Format.formatter -> t -> unit
 end
 
   (** Type of libev loops. *)