sig
type target = Ketrew_pure.Target.t
type t
val to_json :
Ketrew_pure.Target.Stored_target.t -> Internal_pervasives.Json.t
val serialize : Ketrew_pure.Target.Stored_target.t -> string
val deserialize :
string ->
(Ketrew_pure.Target.Stored_target.t,
[> `Target of [> `Deserilization of string ] ])
Internal_pervasives.Result.t
val get_target :
Ketrew_pure.Target.Stored_target.t ->
[ `Pointer of Ketrew_pure.Target.id
| `Target of Ketrew_pure.Target.Stored_target.target ]
val of_target :
Ketrew_pure.Target.Stored_target.target ->
Ketrew_pure.Target.Stored_target.t
val id : Ketrew_pure.Target.Stored_target.t -> Ketrew_pure.Target.id
val make_pointer :
from:Ketrew_pure.Target.Stored_target.target ->
pointing_to:Ketrew_pure.Target.Stored_target.target ->
Ketrew_pure.Target.Stored_target.t
end