Module Set_once

module Set_once: Set_once

exception Already_set

type 'a t 

val create : unit -> 'a t

val set : 'a t -> 'a -> (unit, string) Result.t

val set_exn : 'a t -> 'a -> unit

val get : 'a t -> 'a option

val get_exn : 'a t -> 'a

val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t

val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t