val iter :
t ->
daemon:
( ( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
'a ) ->
genesis:
( ( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
'b ) ->
proof:
( ( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
'c ) ->
ledger:
( ( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
'd ) ->
epoch_data:
( ( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
'e ) ->
'f
val fold :
t ->
init:'a ->
daemon:
( 'b ->
( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
'c ) ->
genesis:
( 'd ->
( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
'e ) ->
proof:
( 'f ->
( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
'g ) ->
ledger:
( 'h ->
( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
'i ) ->
epoch_data:
( 'j ->
( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
'k ) ->
'l
val for_all :
t ->
daemon:
( ( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
bool ) ->
genesis:
( ( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
bool ) ->
proof:
( ( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
bool ) ->
ledger:
( ( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
bool ) ->
epoch_data:
( ( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
bool ) ->
bool
val exists :
t ->
daemon:
( ( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
bool ) ->
genesis:
( ( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
bool ) ->
proof:
( ( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
bool ) ->
ledger:
( ( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
bool ) ->
epoch_data:
( ( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
bool ) ->
bool
val to_list :
t ->
daemon:
( ( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
'a ) ->
genesis:
( ( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
'b ) ->
proof:
( ( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
'c ) ->
ledger:
( ( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
'd ) ->
epoch_data:
( ( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
'e ) ->
'f list
val map :
t ->
daemon:
( ( [< `Read | `Set_and_create ], t, Daemon.t option )
Fieldslib.Field.t_with_perm ->
t ->
Daemon.t option ->
Daemon.t option ) ->
genesis:
( ( [< `Read | `Set_and_create ], t, Genesis.t option )
Fieldslib.Field.t_with_perm ->
t ->
Genesis.t option ->
Genesis.t option ) ->
proof:
( ( [< `Read | `Set_and_create ], t, Proof_keys.t option )
Fieldslib.Field.t_with_perm ->
t ->
Proof_keys.t option ->
Proof_keys.t option ) ->
ledger:
( ( [< `Read | `Set_and_create ], t, Ledger.t option )
Fieldslib.Field.t_with_perm ->
t ->
Ledger.t option ->
Ledger.t option ) ->
epoch_data:
( ( [< `Read | `Set_and_create ], t, Epoch_data.t option )
Fieldslib.Field.t_with_perm ->
t ->
Epoch_data.t option ->
Epoch_data.t option ) ->
t
val set_all_mutable_fields : 'a -> unit