Fields_of_ban_creator (gossip_net.Gossip_net.Fields_of_ban

val names : string list

val banned_until : 
  ( [< `Read | `Set_and_create ], ban_creator, Core_kernel.Time.t )
    Fieldslib.Field.t_with_perm

val banned_peer : 
  ( [< `Read | `Set_and_create ], ban_creator, Network_peer.Peer.t )
    Fieldslib.Field.t_with_perm

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

val create : 
  banned_peer:Network_peer.Peer.t ->
  banned_until:Core_kernel.Time.t ->
  ban_creator

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

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

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

val map_poly : 
  ( [< `Read | `Set_and_create ], ban_creator, 'a ) Fieldslib.Field.user ->
  'b list

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

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

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

module Direct : sig ... end