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

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 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 : 
  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