Source file `netsnmp_io_impl.ml`

1
2
3
4
5
6
7
8
9
10
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