message.ml
riot
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 }
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 }