Build_info/Unit_info: support for sexp serialization

ocsigen · Aug 1, 2024 · 1d7a169 · 1d7a169
1 parent 3204c33
commit 1d7a169
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/compiler/lib/build_info.ml b/compiler/lib/build_info.ml
@@ -90,6 +90,10 @@ let parse s =
       in
       Some t
 
+let to_map : t -> string StringMap.t = Fun.id
+
+let of_map : string StringMap.t -> t = Fun.id
+
 exception
   Incompatible_build_info of
     { key : string

diff --git a/compiler/lib/build_info.mli b/compiler/lib/build_info.mli
@@ -34,6 +34,10 @@ val to_string : t -> string
 
 val parse : string -> t option
 
+val to_map : t -> string StringMap.t
+
+val of_map : string StringMap.t -> t
+
 val with_kind : t -> kind -> t
 
 exception