Module Message.Com

type pubkey = Commons.pubkey
type privkey = Commons.privkey
type hash =
  1. | Hash of string
type result' =
  1. | Ok
  2. | Nok
type ttl
type expiry
type msg_id =
  1. | Msg_id of hash
type seen =
  1. | Seen of msg_id Util_cache.CSet.t
type signature =
  1. | Signature of string
val fold_result : (unit -> 'a) -> (unit -> 'a) -> result' -> 'a
val add_seen : msg_id -> seen -> seen
val num_seen : seen -> int
module T : sig ... end
module Mk : sig ... end
module Acc : sig ... end
module Encode : sig ... end
module Decode : sig ... end
module Pp : sig ... end
val fold_seen' : (msg_id list -> 'a) -> seen -> 'a