sig
  type t
  val create : unit -> Lwt_inotify.t Lwt.t
  val add_watch :
    Lwt_inotify.t -> string -> Inotify.selector list -> Inotify.watch Lwt.t
  val rm_watch : Lwt_inotify.t -> Inotify.watch -> unit Lwt.t
  val read : Lwt_inotify.t -> Inotify.event Lwt.t
  val try_read : Lwt_inotify.t -> Inotify.event option Lwt.t
  val close : Lwt_inotify.t -> unit Lwt.t
end