AwsJson_1.0 and AwsJson_1.1 protocol support (over eio-based httpun client)
include sig ... endtype http = Http.Client.ttype json_type = Yojson.Basic.tval json_to_string :
?buf:Stdlib.Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
Yojson.Basic.t ->
stringval json_of_string :
?buf:Stdlib.Buffer.t ->
?fname:string ->
?lnum:int ->
string ->
Yojson.Basic.tmodule Errors : sig ... endtype error = [ | `AWSServiceError of AwsErrors.aws_service_error| `HttpError of Http.http_failure| `JsonParseError of Json.DeserializeHelpers.jsonParseError ]val request :
shape_name:string ->
service:Service.descriptor ->
config:Config.t ->
input:json_type ->
output_deserializer:(json_type -> string list -> 'res) ->
http:Http.Client.t ->
error_deserializer:
(json_type ->
string list ->
[> `HttpError of Smaws_Lib__Http.http_failure
| `JsonParseError of Json.DeserializeHelpers.jsonParseError ] as 'a) ->
('res, 'a) Stdlib.resultval error_deserializer :
(Yojson.Basic.t -> string list -> (string * string) -> 'a) ->
Yojson.Basic.t ->
string list ->
'a