sig
type 'a t
type 'a key
val new_key : unit -> 'a Sqlexpr_concurrency.THREAD_LOCAL_STATE.key
val get : 'a Sqlexpr_concurrency.THREAD_LOCAL_STATE.key -> 'a option
val with_value :
'a Sqlexpr_concurrency.THREAD_LOCAL_STATE.key ->
'a option ->
(unit -> 'b Sqlexpr_concurrency.THREAD_LOCAL_STATE.t) ->
'b Sqlexpr_concurrency.THREAD_LOCAL_STATE.t
end