Source file message.ml

1
2
3
4
5
type t = ..
type select_marker = Take | Skip | Drop
type envelope = { msg : t; uid : unit Ref.t }

let envelope msg = { uid = Ref.make (); msg }