Make json structure uniform #6

Merged
reynir merged 3 commits from pixiedust-patch-1 into main 2025-01-06 15:01:10 +00:00
Showing only changes of commit c48a1bef3c - Show all commits

View file

@ -1,4 +1,3 @@
module String_map = struct
include Map.Make(String)
@ -16,8 +15,8 @@ let diff_map_to_json (left, right, different_versions) =
`List (List.map (fun (name, version1, version2) ->
`Assoc [
("name", `String name);
("version_in_left", `String version1);
("version_in_right", `String version2)
("version_left", `String version1);
("version_right", `String version2)
]
) lst)
in