Source file pdu_monad.ml

open! Import

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

  let wrap = IO.wrap
  let snmp_pdu_create pdu_type  = wrap Pdu.snmp_pdu_create pdu_type
  let snmp_add_null_var t oid = wrap (Pdu.snmp_add_null_var t) oid 
  let snmp_add_variable t oid value = wrap (Pdu.snmp_add_variable t oid) value
end