package devkit

  1. Overview
  2. Docs
type level = [
  1. | `Debug
  2. | `Info
  3. | `Warn
  4. | `Error
]
type facil = {
  1. name : string;
  2. mutable show : int;
}
val int_level : [< `Debug | `Error | `Info | `Warn ] -> int
val set_filter : facil -> [< `Debug | `Error | `Info | `Warn ] -> unit
val get_level : facil -> [> `Debug | `Error | `Info | `Warn ]
val allowed : facil -> [< `Debug | `Error | `Info | `Warn ] -> bool
val string_level : [< `Debug | `Error | `Info | `Warn ] -> string
val level : string -> [> `Debug | `Error | `Info | `Warn ]
module type Target = sig ... end
module type Put = sig ... end
module PutSimple (T : Target) : Put
module PutLimited (T : Target) : Put
module Make (T : Put) : sig ... end