updated to work with new types for ocaml-openflow