diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Identifiers.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Identifiers.ml b/src/Identifiers.ml index 07d9c8a5..be6a3c58 100644 --- a/src/Identifiers.ml +++ b/src/Identifiers.ml @@ -17,6 +17,10 @@ module type Id = sig val empty_vector : 'a vector + val vector_to_list : 'a vector -> 'a list + + val vector_of_list : 'a list -> 'a vector + module Set : Set.S with type elt = id val id_of_json : Yojson.Basic.t -> (id, string) result @@ -49,6 +53,10 @@ module IdGen () : Id = struct let empty_vector = [] + let vector_to_list v = v + + let vector_of_list v = v + module Set = Set.Make (struct type t = id |