diff --git a/lib/builder_web.ml b/lib/builder_web.ml index e33ca5c..de2a7c1 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -411,7 +411,7 @@ let routes ~datadir ~cachedir ~configdir ~expired_jobs = if is_accept_json req then let json_response = `Assoc [ - "job_name", `String job_name; + "job", `String job_name; "uuid", `String (Uuidm.to_string build.uuid); "platform", `String build.platform; "start_time", `String (Ptime.to_rfc3339 build.start); @@ -621,7 +621,7 @@ let routes ~datadir ~cachedir ~configdir ~expired_jobs = let json_response = `Assoc [ "left", `Assoc [ - "job_name", `String job_left; + "job", `String job_left; "uuid", `String (Uuidm.to_string build_left.uuid); "platform", `String build_left.platform; "start_time", `String (Ptime.to_rfc3339 build_left.start); @@ -630,8 +630,8 @@ let routes ~datadir ~cachedir ~configdir ~expired_jobs = "main_binary_size", file_size_json build_left_file_size; ]; "right", `Assoc [ - "job_name", `String job_right; - "build", `String (Uuidm.to_string build_right.uuid); + "job", `String job_right; + "uuid", `String (Uuidm.to_string build_right.uuid); "platform", `String build_right.platform; "start_time", `String (Ptime.to_rfc3339 build_right.start); "finish_time", `String (Ptime.to_rfc3339 build_right.finish); diff --git a/lib/utils.ml b/lib/utils.ml index 76f7031..190ef75 100644 --- a/lib/utils.ml +++ b/lib/utils.ml @@ -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