Add Univ_map.to_dyns

Thanks to @jeremiedimino #4881 (comment) Signed-off-by: Shon Feder <[email protected]>
ocaml · Sep 6, 2021 · dff2e8a · dff2e8a
1 parent 8a23fbe
commit dff2e8a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/otherlibs/stdune-unstable/univ_map.ml b/otherlibs/stdune-unstable/univ_map.ml
@@ -106,3 +106,9 @@ let to_dyn (t : t) =
     |> List.map ~f:(fun (Binding.T (key, v)) ->
            let (module K) = key in
            (string K.name, K.to_dyn v)))
+
+let to_dyns (t : t) =
+  Int.Map.values t
+  |> List.map ~f:(fun (Binding.T (key, v)) ->
+    let (module K) = key in
+    (K.name, K.to_dyn v))
diff --git a/otherlibs/stdune-unstable/univ_map.mli b/otherlibs/stdune-unstable/univ_map.mli
@@ -34,3 +34,6 @@ val singleton : 'a Key.t -> 'a -> t
 val superpose : t -> t -> t
 
 val to_dyn : t -> Dyn.t
+
+(** [to_dyns m] is an assoc list pairing keys to (representations of) values *)
+val to_dyns : t -> (string * Dyn.t) list