`sig
type t
type 'a key
val key :
?preprocess:('a -> 'a) -> unit -> 'a Ocsigen_server.Config_nested.key
val find :
Ocsigen_server.Config_nested.t ->
'a Ocsigen_server.Config_nested.key -> 'a option
val set :
Ocsigen_server.Config_nested.t ->
'a Ocsigen_server.Config_nested.key -> 'a -> unit
val unset :
Ocsigen_server.Config_nested.t ->
'a Ocsigen_server.Config_nested.key -> unit
type accessor = {
accessor : 'a. 'a Ocsigen_server.Config_nested.key -> 'a option;
}
end`