type 'a freeable =
| None
| Freed
| SubState of 'a
val freeable_to_yojson :
'a. ('a -> Yojson.Safe.t) ->
'a freeable ->
Yojson.Safe.t
val freeable_of_yojson :
'a. (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
Yojson.Safe.t ->
'a freeable Ppx_deriving_yojson_runtime.error_or
val _ :
(Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
Yojson.Safe.t ->
'a freeable Ppx_deriving_yojson_runtime.error_or
val pp_freeable :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
Ppx_deriving_runtime.Format.formatter ->
'a freeable ->
Ppx_deriving_runtime.unit
val show_freeable :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
'a freeable ->
Ppx_deriving_runtime.string