Source file netsnmp_io_impl.ml

type 'a t = 'a

let return v = v
let bind a ~f = f a
let map a ~f  = f a
let (>>=) a f =  f a
let (>>|) a f = f a
let wrap f = f
let wrap_mt f = f
let gc_finalise f t = Gc.finalise (fun t -> f t |> ignore) t