AwsJson (smaws-lib.Smaws_Lib.Protocols.AwsJson)

type json_type = Yojson.Basic.t

val json_to_string : 
  ?buf:??? ->
  ?len:??? ->
  ?suf:??? ->
  ?std:??? ->
  Yojson.Basic.t ->
  string

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

val normalize_error_name : string -> string

val find_header : name:Stdlib.String.t -> (string * 'a) list -> 'a option

val error_name_from_headers : (string * string) list -> string option

val assoc_find : Stdlib.String.t -> (Stdlib.String.t * 'a) list -> 'a option

val error_name_from_body : 
  [> `Assoc of (Stdlib.String.t * [> `String of string ]) list ] ->
  string option

val ensure_error_type : headers:Http.headers -> json_type -> json_type

module Errors : sig ... end

type error = [

| AwsErrors.t
| `HttpError of Http.http_failure
| `JsonParseError of Json.DeserializeHelpers.jsonParseError

]

val error_to_string : 
  [< `AWSServiceError of AwsErrors.aws_service_error
  | `HttpError of Http.http_failure
  | `JsonParseError of Json.DeserializeHelpers.jsonParseError ] ->
  string

val pp_error : 
  Stdlib.Format.formatter ->
  [< `AWSServiceError of AwsErrors.aws_service_error
  | `HttpError of Http.http_failure
  | `JsonParseError of Json.DeserializeHelpers.jsonParseError ] ->
  unit

val request_with_metadata : 
  shape_name:string ->
  service:Service.descriptor ->
  context:'http_t Context.t ->
  input:json_type ->
  output_deserializer:(json_type -> string list -> 'res) ->
  error_deserializer:
    (json_type ->
      string list ->
      [> `HttpError of Smaws_Lib__Http.http_failure
      | `JsonParseError of Json.DeserializeHelpers.jsonParseError ] as 'a) ->
  ('res Response.t, 'a * Response.metadata) Stdlib.result

val request : 
  shape_name:string ->
  service:Service.descriptor ->
  context:'http_t Context.t ->
  input:json_type ->
  output_deserializer:(json_type -> string list -> 'res) ->
  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