Peer_trust (trust_system.Trust_system.Peer

type t

val create : string -> t

val null : unit -> t

val upcall_pipe : 
  t ->
  [ `Ban of Network_peer.Peer.t * Core.Time.t
  | `Heartbeat of Network_peer.Peer.t ]
    Pipe_lib.Strict_pipe.Reader.t

val record : 
  t ->
  Logger.t ->
  Network_peer.Peer.t ->
  Actions.t ->
  unit Async_kernel.Deferred.t

val lookup_ip : 
  t ->
  Core.Unix.Inet_addr.Blocking_sexp.t ->
  (Network_peer.Peer.t * Peer_status.t) list

val reset_ip : 
  t ->
  Core.Unix.Inet_addr.Blocking_sexp.t ->
  (Network_peer.Peer.t * Peer_status.t) list

val peer_statuses : t -> (Network_peer.Peer.t * Peer_status.t) list

val close : t -> unit

module For_tests : sig ... end