Make (smaws-lib.Smaws_Lib.Protocols

Parameters

module Http_module : Http.Client_intf

Signature

type http = Http_module.t

type json_type = Yojson.Basic.t

val json_to_string : 
  ?buf:Stdlib.Buffer.t ->
  ?len:int ->
  ?suf:string ->
  ?std:bool ->
  Yojson.Basic.t ->
  string

val json_of_string : 
  ?buf:Stdlib.Buffer.t ->
  ?fname:string ->
  ?lnum:int ->
  string ->
  Yojson.Basic.t

module Errors : sig ... end

type error = [

| AwsErrors.t
| `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_module.t ->
  error_deserializer:
    (json_type ->
      string list ->
      [> `HttpError of Smaws_Lib__Http.http_failure
      | `JsonParseError of Json.DeserializeHelpers.jsonParseError ] as 'a) ->
  ('res, 'a) Stdlib.result

val error_deserializer : 
  (Yojson.Basic.t -> string list -> (string * string) -> 'a) ->
  Yojson.Basic.t ->
  string list ->
  'a