Fields (archive_lib.Archive_lib.Processor.Block.Fields)

val names : string list

val chain_status : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val timestamp : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val global_slot_since_genesis : 
  ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm

val global_slot_since_hard_fork : 
  ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm

val height : 
  ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm

val ledger_hash : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val total_currency : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val min_window_density : 
  ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm

val next_epoch_data_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val staking_epoch_data_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val snarked_ledger_hash_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val block_winner_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val creator_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val parent_hash : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val parent_id : 
  ( [< `Read | `Set_and_create ], t, int option ) Fieldslib.Field.t_with_perm

val state_hash : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val make_creator : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'a ->
      ( 'b -> string ) * 'c ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      'd ->
      ( 'e -> int option ) * 'f ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'g ->
      ( 'h -> string ) * 'i ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'j ->
      ( 'k -> int ) * 'l ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'm ->
      ( 'n -> int ) * 'o ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'p ->
      ( 'q -> int ) * 'r ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      's ->
      ( 't -> int ) * 'u ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'v ->
      ( 'w -> int ) * 'x ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'y ->
      ( 'z -> int64 ) * 'a1 ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'b1 ->
      ( 'c1 -> string ) * 'd1 ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'e1 ->
      ( 'f1 -> string ) * 'g1 ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'h1 ->
      ( 'i1 -> int64 ) * 'j1 ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'k1 ->
      ( 'l1 -> int64 ) * 'm1 ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'n1 ->
      ( 'o1 -> int64 ) * 'p1 ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'q1 ->
      ( 'r1 -> string ) * 's1 ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      't1 ->
      ( 'u1 -> string ) * 'v1 ) ->
  'w1 ->
  ( 'x1 -> t ) * 'y1

val create : 
  state_hash:string ->
  parent_id:int option ->
  parent_hash:string ->
  creator_id:int ->
  block_winner_id:int ->
  snarked_ledger_hash_id:int ->
  staking_epoch_data_id:int ->
  next_epoch_data_id:int ->
  min_window_density:int64 ->
  total_currency:string ->
  ledger_hash:string ->
  height:int64 ->
  global_slot_since_hard_fork:int64 ->
  global_slot_since_genesis:int64 ->
  timestamp:string ->
  chain_status:string ->
  t

val map : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      int option ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      int64 ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      int64 ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      int64 ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      int64 ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  t

val iter : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  unit

val fold : 
  init:'a ->
  state_hash:
    ( 'b ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'c ) ->
  parent_id:
    ( 'd ->
      ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      'e ) ->
  parent_hash:
    ( 'f ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'g ) ->
  creator_id:
    ( 'h ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'i ) ->
  block_winner_id:
    ( 'j ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'k ) ->
  snarked_ledger_hash_id:
    ( 'l ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'm ) ->
  staking_epoch_data_id:
    ( 'n ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'o ) ->
  next_epoch_data_id:
    ( 'p ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'q ) ->
  min_window_density:
    ( 'r ->
      ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      's ) ->
  total_currency:
    ( 't ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'u ) ->
  ledger_hash:
    ( 'v ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'w ) ->
  height:
    ( 'x ->
      ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'y ) ->
  global_slot_since_hard_fork:
    ( 'z ->
      ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'a1 ) ->
  global_slot_since_genesis:
    ( 'b1 ->
      ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'c1 ) ->
  timestamp:
    ( 'd1 ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'e1 ) ->
  chain_status:
    ( 'f1 ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'g1 ) ->
  'h1

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

val for_all : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val exists : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val to_list : 
  state_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'a ) ->
  parent_id:
    ( ( [< `Read | `Set_and_create ], t, int option )
        Fieldslib.Field.t_with_perm ->
      'b ) ->
  parent_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'c ) ->
  creator_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'd ) ->
  block_winner_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'e ) ->
  snarked_ledger_hash_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'f ) ->
  staking_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'g ) ->
  next_epoch_data_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'h ) ->
  min_window_density:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'i ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'j ) ->
  ledger_hash:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'k ) ->
  height:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'l ) ->
  global_slot_since_hard_fork:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'm ) ->
  global_slot_since_genesis:
    ( ( [< `Read | `Set_and_create ], t, int64 ) Fieldslib.Field.t_with_perm ->
      'n ) ->
  timestamp:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'o ) ->
  chain_status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'p ) ->
  'q list

module Direct : sig ... end