diff --git a/src/lib_openapi/api.ml b/src/lib_openapi/api.ml index 9b1f4b36d5ec6447b662a98e6dcd6a57183771f0..9ed20247318e56119e3234137bf765452a1143e0 100644 --- a/src/lib_openapi/api.ml +++ b/src/lib_openapi/api.ml @@ -35,13 +35,7 @@ let fail x = Printf.ksprintf failwith x (* First, we parse up to services. *) -type arg = { - json : Json.t; - (* arg as JSON, used by rpcdiff; we could remove this *) - id : string; - name : string; - descr : string option; -} +type arg = {id : string; name : string; descr : string option} type 'a tree = Static of 'a static | Dynamic of Json.t @@ -67,7 +61,6 @@ let opt_mandatory name json = function let parse_arg (json : Json.t) : arg = Json.as_record json @@ fun get -> { - json; id = get "id" |> opt_mandatory "id" json |> Json.as_string; name = get "name" |> opt_mandatory "name" json |> Json.as_string; descr = get "descr" |> Option.map Json.as_string; diff --git a/src/lib_openapi/convert.ml b/src/lib_openapi/convert.ml index d485f17514bab9cf4dead0733271800770ce7afb..5c43cb4fa216e03b023280787b131a09b718ee3a 100644 --- a/src/lib_openapi/convert.ml +++ b/src/lib_openapi/convert.ml @@ -283,7 +283,6 @@ let convert_service expected_path expected_method "expected method %s but found %s" (Method.to_http_string expected_method) (Method.to_http_string meth) ; - (* TODO: in practice [expected_path <> path]. Investigate why. *) if expected_path <> path then warn "expected path %s but found %s"