Source file `pdu_monad.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Import

module Pdu(IO : Io_intf.S) : Pdu_intf.S with module IO := IO = struct
  include Pdu

  let snmp_pdu_create pdu_type =
    IO.wrap_mt Pdu.snmp_pdu_create pdu_type

  let snmp_add_null_var t oid =
    IO.wrap_mt (Pdu.snmp_add_null_var t) oid

  let snmp_add_variable t oid value =
    IO.wrap_mt (Pdu.snmp_add_variable t oid) value
end