Direct (gossip_net.Gossip_net.Fields_of_ban

val iter : 
  ban_creator ->
  banned_peer:
    ( ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      'a ) ->
  banned_until:
    ( ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      'b ) ->
  'c

val fold : 
  ban_creator ->
  init:'a ->
  banned_peer:
    ( 'b ->
      ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      'c ) ->
  banned_until:
    ( 'd ->
      ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      'e ) ->
  'f

val for_all : 
  ban_creator ->
  banned_peer:
    ( ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      bool ) ->
  banned_until:
    ( ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      bool ) ->
  bool

val exists : 
  ban_creator ->
  banned_peer:
    ( ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      bool ) ->
  banned_until:
    ( ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      bool ) ->
  bool

val to_list : 
  ban_creator ->
  banned_peer:
    ( ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      'a ) ->
  banned_until:
    ( ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      'b ) ->
  'c list

val map : 
  ban_creator ->
  banned_peer:
    ( ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Network_peer.Peer.t ->
      Network_peer.Peer.t ) ->
  banned_until:
    ( ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
        Fieldslib.Field.t_with_perm ->
      ban_creator ->
      Core_kernel.Time.t ->
      Core_kernel.Time.t ) ->
  ban_creator

val set_all_mutable_fields : 'a -> unit