Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.applicationcostprofiler
let apiVersion = "2020-09-10"
let endpointPrefix = "application-cost-profiler"
let serviceFullName = "AWS Application Cost Profiler"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module S3Bucket =
  struct
    type nonrec t = string
    let context_ = "S3Bucket"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?=^.{3,63}$)(?!^(\\d+\\.)+\\d+$)(^(([a-z0-9]|[a-z0-9][a-z0-9\\-]*[a-z0-9])\\.)*([a-z0-9]|[a-z0-9][a-z0-9\\-]*[a-z0-9])$)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Bucket" j
    let to_json = simple_to_json to_value
  end
module S3Prefix =
  struct
    type nonrec t = string
    let context_ = "S3Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Prefix" j
    let to_json = simple_to_json to_value
  end
module Format_ =
  struct
    type nonrec t =
      | CSV 
      | PARQUET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | CSV -> "CSV" | PARQUET -> "PARQUET" | Non_static_id s -> s
    let of_string =
      function | "CSV" -> CSV | "PARQUET" -> PARQUET | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Format" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Format" j)
    let to_json = simple_to_json to_value
  end
module ReportDescription =
  struct
    type nonrec t = string
    let context_ = "ReportDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReportDescription" j
    let to_json = simple_to_json to_value
  end
module ReportFrequency =
  struct
    type nonrec t =
      | MONTHLY 
      | DAILY 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MONTHLY -> "MONTHLY"
      | DAILY -> "DAILY"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "MONTHLY" -> MONTHLY
      | "DAILY" -> DAILY
      | "ALL" -> ALL
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ReportFrequency" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportFrequency" j)
    let to_json = simple_to_json to_value
  end
module ReportId =
  struct
    type nonrec t = string
    let context_ = "ReportId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9A-Za-z\\.\\-_]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReportId" j
    let to_json = simple_to_json to_value
  end
module S3Location =
  struct
    type nonrec t =
      {
      bucket: S3Bucket.t [@ocaml.doc "Name of the S3 bucket."];
      prefix: S3Prefix.t [@ocaml.doc "Prefix for the location to write to."]}
    let context_ = "S3Location"
    let make ~bucket = fun ~prefix -> fun () -> { bucket; prefix }
    let to_value x =
      structure_to_value
        [("bucket", (Some (S3Bucket.to_value x.bucket)));
        ("prefix", (Some (S3Prefix.to_value x.prefix)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        S3Prefix.of_xml (Xml.child_exn ~context:context_ xml_arg0 "prefix") in
      let bucket =
        S3Bucket.of_xml (Xml.child_exn ~context:context_ xml_arg0 "bucket") in
      make ~prefix ~bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map_exn json__ "prefix" S3Prefix.of_json in
      let bucket = field_map_exn json__ "bucket" S3Bucket.of_json in
      make ~prefix ~bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the Amazon Simple Storage Service (Amazon S3) location where AWS Application Cost Profiler reports are generated and then written to."]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ReportDefinition =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option [@ocaml.doc "The ID of the report."];
      reportDescription: ReportDescription.t option
        [@ocaml.doc "Description of the report"];
      reportFrequency: ReportFrequency.t option
        [@ocaml.doc "The cadence at which the report is generated."];
      format: Format_.t option
        [@ocaml.doc "The format used for the generated reports."];
      destinationS3Location: S3Location.t option
        [@ocaml.doc
          "The location in Amazon Simple Storage Service (Amazon S3) the reports should be saved to."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Timestamp (milliseconds) when this report definition was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "Timestamp (milliseconds) when this report definition was last updated."]}
    let make ?reportId =
      fun ?reportDescription ->
        fun ?reportFrequency ->
          fun ?format ->
            fun ?destinationS3Location ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun () ->
                    {
                      reportId;
                      reportDescription;
                      reportFrequency;
                      format;
                      destinationS3Location;
                      createdAt;
                      lastUpdatedAt
                    }
    let to_value x =
      structure_to_value
        [("reportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("reportDescription",
          (Option.map x.reportDescription ~f:ReportDescription.to_value));
        ("reportFrequency",
          (Option.map x.reportFrequency ~f:ReportFrequency.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("destinationS3Location",
          (Option.map x.destinationS3Location ~f:S3Location.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let destinationS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "destinationS3Location") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let reportFrequency =
        (Option.map ~f:ReportFrequency.of_xml)
          (Xml.child xml_arg0 "reportFrequency") in
      let reportDescription =
        (Option.map ~f:ReportDescription.of_xml)
          (Xml.child xml_arg0 "reportDescription") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "reportId") in
      make ?lastUpdatedAt ?createdAt ?destinationS3Location ?format
        ?reportFrequency ?reportDescription ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let destinationS3Location =
        field_map json__ "destinationS3Location" S3Location.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let reportFrequency =
        field_map json__ "reportFrequency" ReportFrequency.of_json in
      let reportDescription =
        field_map json__ "reportDescription" ReportDescription.of_json in
      let reportId = field_map json__ "reportId" ReportId.of_json in
      make ?lastUpdatedAt ?createdAt ?destinationS3Location ?format
        ?reportFrequency ?reportDescription ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration of a report in AWS Application Cost Profiler."]
module S3BucketRegion =
  struct
    type nonrec t =
      | Ap_east_1 
      | Me_south_1 
      | Eu_south_1 
      | Af_south_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ap_east_1 -> "ap-east-1"
      | Me_south_1 -> "me-south-1"
      | Eu_south_1 -> "eu-south-1"
      | Af_south_1 -> "af-south-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "ap-east-1" -> Ap_east_1
      | "me-south-1" -> Me_south_1
      | "eu-south-1" -> Eu_south_1
      | "af-south-1" -> Af_south_1
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration S3BucketRegion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3BucketRegion" j)
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Key" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You do not have permission to perform this action."]
module InternalServerException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal server error occurred. Retry your request."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The calls to AWS Application Cost Profiler API are throttled. The request was denied."]
module ValidationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input fails to satisfy the constraints for the API."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your request exceeds one or more of the service quotas."]
module ReportDefinitionList =
  struct
    type nonrec t = ReportDefinition.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ReportDefinition.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ReportDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"ReportDefinitionList"
        ~of_json:ReportDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:102400) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?:[A-Za-z0-9+/]{4})*(?:[A-Za-z0-9+/]{2}==|[A-Za-z0-9+/]{3}=)?$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Token" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ImportId =
  struct
    type nonrec t = string
    let context_ = "ImportId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z\\.\\-_]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImportId" j
    let to_json = simple_to_json to_value
  end
module SourceS3Location =
  struct
    type nonrec t =
      {
      bucket: S3Bucket.t [@ocaml.doc "Name of the bucket."];
      key: S3Key.t [@ocaml.doc "Key of the object."];
      region: S3BucketRegion.t option
        [@ocaml.doc
          "Region of the bucket. Only required for Regions that are disabled by default. For more infomration about Regions that are disabled by default, see Enabling a Region in the AWS General Reference guide."]}
    let context_ = "SourceS3Location"
    let make ?region =
      fun ~bucket -> fun ~key -> fun () -> { region; bucket; key }
    let to_value x =
      structure_to_value
        [("bucket", (Some (S3Bucket.to_value x.bucket)));
        ("key", (Some (S3Key.to_value x.key)));
        ("region", (Option.map x.region ~f:S3BucketRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:S3BucketRegion.of_xml) (Xml.child xml_arg0 "region") in
      let key = S3Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let bucket =
        S3Bucket.of_xml (Xml.child_exn ~context:context_ xml_arg0 "bucket") in
      make ?region ~key ~bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map json__ "region" S3BucketRegion.of_json in
      let key = field_map_exn json__ "key" S3Key.of_json in
      let bucket = field_map_exn json__ "bucket" S3Bucket.of_json in
      make ?region ~key ~bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the Amazon Simple Storage Service (Amazon S3) location where usage data is read from."]
module UpdateReportDefinitionResult =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option [@ocaml.doc "ID of the report."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId = fun () -> { reportId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportId", (Option.map x.reportId ~f:ReportId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "reportId") in
      make ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map json__ "reportId" ReportId.of_json in
      make ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates existing report in AWS Application Cost Profiler."]
module UpdateReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Required. ID of the report to update."];
      reportDescription: ReportDescription.t
        [@ocaml.doc "Required. Description of the report."];
      reportFrequency: ReportFrequency.t
        [@ocaml.doc "Required. The cadence to generate the report."];
      format: Format_.t
        [@ocaml.doc "Required. The format to use for the generated report."];
      destinationS3Location: S3Location.t
        [@ocaml.doc
          "Required. Amazon Simple Storage Service (Amazon S3) location where Application Cost Profiler uploads the report."]}
    let context_ = "UpdateReportDefinitionRequest"
    let make ~reportId =
      fun ~reportDescription ->
        fun ~reportFrequency ->
          fun ~format ->
            fun ~destinationS3Location ->
              fun () ->
                {
                  reportId;
                  reportDescription;
                  reportFrequency;
                  format;
                  destinationS3Location
                }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("reportDescription",
          (Some (ReportDescription.to_value x.reportDescription)));
        ("reportFrequency",
          (Some (ReportFrequency.to_value x.reportFrequency)));
        ("format", (Some (Format_.to_value x.format)));
        ("destinationS3Location",
          (Some (S3Location.to_value x.destinationS3Location)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationS3Location =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationS3Location") in
      let format =
        Format_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "format") in
      let reportFrequency =
        ReportFrequency.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reportFrequency") in
      let reportDescription =
        ReportDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reportDescription") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ~destinationS3Location ~format ~reportFrequency ~reportDescription
        ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationS3Location =
        field_map_exn json__ "destinationS3Location" S3Location.of_json in
      let format = field_map_exn json__ "format" Format_.of_json in
      let reportFrequency =
        field_map_exn json__ "reportFrequency" ReportFrequency.of_json in
      let reportDescription =
        field_map_exn json__ "reportDescription" ReportDescription.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ~destinationS3Location ~format ~reportFrequency ~reportDescription
        ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates existing report in AWS Application Cost Profiler."]
module PutReportDefinitionResult =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option [@ocaml.doc "ID of the report."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId = fun () -> { reportId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportId", (Option.map x.reportId ~f:ReportId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "reportId") in
      make ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map json__ "reportId" ReportId.of_json in
      make ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the report definition for a report in Application Cost Profiler."]
module PutReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc
          "Required. ID of the report. You can choose any valid string matching the pattern for the ID."];
      reportDescription: ReportDescription.t
        [@ocaml.doc "Required. Description of the report."];
      reportFrequency: ReportFrequency.t
        [@ocaml.doc "Required. The cadence to generate the report."];
      format: Format_.t
        [@ocaml.doc "Required. The format to use for the generated report."];
      destinationS3Location: S3Location.t
        [@ocaml.doc
          "Required. Amazon Simple Storage Service (Amazon S3) location where Application Cost Profiler uploads the report."]}
    let context_ = "PutReportDefinitionRequest"
    let make ~reportId =
      fun ~reportDescription ->
        fun ~reportFrequency ->
          fun ~format ->
            fun ~destinationS3Location ->
              fun () ->
                {
                  reportId;
                  reportDescription;
                  reportFrequency;
                  format;
                  destinationS3Location
                }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("reportDescription",
          (Some (ReportDescription.to_value x.reportDescription)));
        ("reportFrequency",
          (Some (ReportFrequency.to_value x.reportFrequency)));
        ("format", (Some (Format_.to_value x.format)));
        ("destinationS3Location",
          (Some (S3Location.to_value x.destinationS3Location)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationS3Location =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationS3Location") in
      let format =
        Format_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "format") in
      let reportFrequency =
        ReportFrequency.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reportFrequency") in
      let reportDescription =
        ReportDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reportDescription") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ~destinationS3Location ~format ~reportFrequency ~reportDescription
        ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationS3Location =
        field_map_exn json__ "destinationS3Location" S3Location.of_json in
      let format = field_map_exn json__ "format" Format_.of_json in
      let reportFrequency =
        field_map_exn json__ "reportFrequency" ReportFrequency.of_json in
      let reportDescription =
        field_map_exn json__ "reportDescription" ReportDescription.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ~destinationS3Location ~format ~reportFrequency ~reportDescription
        ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the report definition for a report in Application Cost Profiler."]
module ListReportDefinitionsResult =
  struct
    type nonrec t =
      {
      reportDefinitions: ReportDefinitionList.t option
        [@ocaml.doc "The retrieved reports."];
      nextToken: Token.t option
        [@ocaml.doc
          "The value of the next token, if it exists. Null if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportDefinitions =
      fun ?nextToken -> fun () -> { reportDefinitions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportDefinitions",
           (Option.map x.reportDefinitions ~f:ReportDefinitionList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let reportDefinitions =
        (Option.map ~f:ReportDefinitionList.of_xml)
          (Xml.child xml_arg0 "reportDefinitions") in
      make ?nextToken ?reportDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let reportDefinitions =
        field_map json__ "reportDefinitions" ReportDefinitionList.of_json in
      make ?nextToken ?reportDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all reports and their configurations for your AWS account. The maximum number of reports is one."]
module ListReportDefinitionsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "The token value from a previous call to access the next page of results."];
      maxResults: Integer.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" Integer.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all reports and their configurations for your AWS account. The maximum number of reports is one."]
module ImportApplicationUsageResult =
  struct
    type nonrec t =
      {
      importId: ImportId.t option [@ocaml.doc "ID of the import request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?importId = fun () -> { importId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("importId", (Option.map x.importId ~f:ImportId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importId =
        (Option.map ~f:ImportId.of_xml) (Xml.child xml_arg0 "importId") in
      make ?importId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importId = field_map json__ "importId" ImportId.of_json in
      make ?importId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Ingests application usage data from Amazon Simple Storage Service (Amazon S3). The data must already exist in the S3 location. As part of the action, AWS Application Cost Profiler copies the object from your S3 bucket to an S3 bucket owned by Amazon for processing asynchronously."]
module ImportApplicationUsageRequest =
  struct
    type nonrec t =
      {
      sourceS3Location: SourceS3Location.t
        [@ocaml.doc
          "Amazon S3 location to import application usage data from."]}
    let context_ = "ImportApplicationUsageRequest"
    let make ~sourceS3Location = fun () -> { sourceS3Location }
    let to_value x =
      structure_to_value
        [("sourceS3Location",
           (Some (SourceS3Location.to_value x.sourceS3Location)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceS3Location =
        SourceS3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceS3Location") in
      make ~sourceS3Location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceS3Location =
        field_map_exn json__ "sourceS3Location" SourceS3Location.of_json in
      make ~sourceS3Location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Ingests application usage data from Amazon Simple Storage Service (Amazon S3). The data must already exist in the S3 location. As part of the action, AWS Application Cost Profiler copies the object from your S3 bucket to an S3 bucket owned by Amazon for processing asynchronously."]
module GetReportDefinitionResult =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option [@ocaml.doc "ID of the report retrieved."];
      reportDescription: ReportDescription.t option
        [@ocaml.doc "Description of the report."];
      reportFrequency: ReportFrequency.t option
        [@ocaml.doc "Cadence used to generate the report."];
      format: Format_.t option [@ocaml.doc "Format of the generated report."];
      destinationS3Location: S3Location.t option
        [@ocaml.doc
          "Amazon Simple Storage Service (Amazon S3) location where the report is uploaded."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Timestamp (milliseconds) when this report definition was created."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "Timestamp (milliseconds) when this report definition was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId =
      fun ?reportDescription ->
        fun ?reportFrequency ->
          fun ?format ->
            fun ?destinationS3Location ->
              fun ?createdAt ->
                fun ?lastUpdated ->
                  fun () ->
                    {
                      reportId;
                      reportDescription;
                      reportFrequency;
                      format;
                      destinationS3Location;
                      createdAt;
                      lastUpdated
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("reportDescription",
          (Option.map x.reportDescription ~f:ReportDescription.to_value));
        ("reportFrequency",
          (Option.map x.reportFrequency ~f:ReportFrequency.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("destinationS3Location",
          (Option.map x.destinationS3Location ~f:S3Location.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let destinationS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "destinationS3Location") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let reportFrequency =
        (Option.map ~f:ReportFrequency.of_xml)
          (Xml.child xml_arg0 "reportFrequency") in
      let reportDescription =
        (Option.map ~f:ReportDescription.of_xml)
          (Xml.child xml_arg0 "reportDescription") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "reportId") in
      make ?lastUpdated ?createdAt ?destinationS3Location ?format
        ?reportFrequency ?reportDescription ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let destinationS3Location =
        field_map json__ "destinationS3Location" S3Location.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let reportFrequency =
        field_map json__ "reportFrequency" ReportFrequency.of_json in
      let reportDescription =
        field_map json__ "reportDescription" ReportDescription.of_json in
      let reportId = field_map json__ "reportId" ReportId.of_json in
      make ?lastUpdated ?createdAt ?destinationS3Location ?format
        ?reportFrequency ?reportDescription ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the definition of a report already configured in AWS Application Cost Profiler."]
module GetReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t [@ocaml.doc "ID of the report to retrieve."]}
    let context_ = "GetReportDefinitionRequest"
    let make ~reportId = fun () -> { reportId }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the definition of a report already configured in AWS Application Cost Profiler."]
module DeleteReportDefinitionResult =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option
        [@ocaml.doc "ID of the report that was deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId = fun () -> { reportId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportId", (Option.map x.reportId ~f:ReportId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "reportId") in
      make ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map json__ "reportId" ReportId.of_json in
      make ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified report definition in AWS Application Cost Profiler. This stops the report from being generated."]
module DeleteReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Required. ID of the report to delete."]}
    let context_ = "DeleteReportDefinitionRequest"
    let make ~reportId = fun () -> { reportId }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified report definition in AWS Application Cost Profiler. This stops the report from being generated."]