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.sustainability
let apiVersion = "2018-05-10"
let endpointPrefix = "sustainability"
let serviceFullName = "AWS Sustainability"
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 Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module EmissionsUnit =
  struct
    type nonrec t =
      | MTCO2e 
      | Non_static_id of string 
    let make i = i
    let to_string = function | MTCO2e -> "MTCO2e" | Non_static_id s -> s
    let of_string = function | "MTCO2e" -> MTCO2e | 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 EmissionsUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EmissionsUnit" j)
    let to_json = simple_to_json to_value
  end
module Dimension =
  struct
    type nonrec t =
      | USAGE_ACCOUNT_ID 
      | REGION 
      | SERVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USAGE_ACCOUNT_ID -> "USAGE_ACCOUNT_ID"
      | REGION -> "REGION"
      | SERVICE -> "SERVICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "USAGE_ACCOUNT_ID" -> USAGE_ACCOUNT_ID
      | "REGION" -> REGION
      | "SERVICE" -> SERVICE
      | 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 Dimension" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Dimension" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    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:"String" j
    let to_json = simple_to_json to_value
  end
module Emissions =
  struct
    type nonrec t =
      {
      value: Double.t option
        [@ocaml.doc "The numeric value of the emissions quantity."];
      unit: EmissionsUnit.t option
        [@ocaml.doc "The unit of measurement for the emissions value."]}
    let make ?value = fun ?unit -> fun () -> { value; unit }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:Double.to_value));
        ("Unit", (Option.map x.unit ~f:EmissionsUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit =
        (Option.map ~f:EmissionsUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let value = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Value") in
      make ?unit ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map json__ "Unit" EmissionsUnit.of_json in
      let value = field_map json__ "Value" Double.of_json in
      make ?unit ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a carbon emissions quantity with its value and unit of measurement."]
module EmissionsType =
  struct
    type nonrec t =
      | TOTAL_LBM_CARBON_EMISSIONS 
      | TOTAL_MBM_CARBON_EMISSIONS 
      | TOTAL_SCOPE_1_CARBON_EMISSIONS 
      | TOTAL_SCOPE_2_LBM_CARBON_EMISSIONS 
      | TOTAL_SCOPE_2_MBM_CARBON_EMISSIONS 
      | TOTAL_SCOPE_3_LBM_CARBON_EMISSIONS 
      | TOTAL_SCOPE_3_MBM_CARBON_EMISSIONS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TOTAL_LBM_CARBON_EMISSIONS -> "TOTAL_LBM_CARBON_EMISSIONS"
      | TOTAL_MBM_CARBON_EMISSIONS -> "TOTAL_MBM_CARBON_EMISSIONS"
      | TOTAL_SCOPE_1_CARBON_EMISSIONS -> "TOTAL_SCOPE_1_CARBON_EMISSIONS"
      | TOTAL_SCOPE_2_LBM_CARBON_EMISSIONS ->
          "TOTAL_SCOPE_2_LBM_CARBON_EMISSIONS"
      | TOTAL_SCOPE_2_MBM_CARBON_EMISSIONS ->
          "TOTAL_SCOPE_2_MBM_CARBON_EMISSIONS"
      | TOTAL_SCOPE_3_LBM_CARBON_EMISSIONS ->
          "TOTAL_SCOPE_3_LBM_CARBON_EMISSIONS"
      | TOTAL_SCOPE_3_MBM_CARBON_EMISSIONS ->
          "TOTAL_SCOPE_3_MBM_CARBON_EMISSIONS"
      | Non_static_id s -> s
    let of_string =
      function
      | "TOTAL_LBM_CARBON_EMISSIONS" -> TOTAL_LBM_CARBON_EMISSIONS
      | "TOTAL_MBM_CARBON_EMISSIONS" -> TOTAL_MBM_CARBON_EMISSIONS
      | "TOTAL_SCOPE_1_CARBON_EMISSIONS" -> TOTAL_SCOPE_1_CARBON_EMISSIONS
      | "TOTAL_SCOPE_2_LBM_CARBON_EMISSIONS" ->
          TOTAL_SCOPE_2_LBM_CARBON_EMISSIONS
      | "TOTAL_SCOPE_2_MBM_CARBON_EMISSIONS" ->
          TOTAL_SCOPE_2_MBM_CARBON_EMISSIONS
      | "TOTAL_SCOPE_3_LBM_CARBON_EMISSIONS" ->
          TOTAL_SCOPE_3_LBM_CARBON_EMISSIONS
      | "TOTAL_SCOPE_3_MBM_CARBON_EMISSIONS" ->
          TOTAL_SCOPE_3_MBM_CARBON_EMISSIONS
      | 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 EmissionsType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EmissionsType" j)
    let to_json = simple_to_json to_value
  end
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 DimensionsMap =
  struct
    type nonrec t = (Dimension.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((Dimension.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Dimension.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Dimension.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmissionsMap =
  struct
    type nonrec t = (EmissionsType.t * Emissions.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types EmissionsType Emissions"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (EmissionsType.to_value x) |>
                    (fun x -> (Emissions.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:EmissionsType.of_string
        ~of_json:Emissions.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelVersion =
  struct
    type nonrec t = string
    let context_ = "ModelVersion"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"v(0|[1-9]\\d*)\\.(0|[1-9]\\d*)\\.(0|[1-9]\\d*)(?:-((?:0|[1-9]\\d*|\\d*[a-zA-Z-][0-9a-zA-Z-]*)(?:\\.(?:0|[1-9]\\d*|\\d*[a-zA-Z-][0-9a-zA-Z-]*))*))?(?:\\+([0-9a-zA-Z-]+(?:\\.[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:"ModelVersion" j
    let to_json = simple_to_json to_value
  end
module TimePeriod =
  struct
    type nonrec t =
      {
      start: Timestamp.t
        [@ocaml.doc
          "The start (inclusive) of the time period. ISO-8601 formatted timestamp, for example: YYYY-MM-DDThh:mm:ss.sssZ"];
      end_: Timestamp.t
        [@ocaml.doc
          "The end (exclusive) of the time period. ISO-8601 formatted timestamp, for example: YYYY-MM-DDThh:mm:ss.sssZ"]}
    let context_ = "TimePeriod"
    let make ~start = fun ~end_ -> fun () -> { start; end_ }
    let to_value x =
      structure_to_value
        [("Start", (Some (Timestamp.to_value x.start)));
        ("End", (Some (Timestamp.to_value x.end_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let end_ =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "End") in
      let start =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Start") in
      make ~end_ ~start ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let end_ = field_map_exn json__ "End" Timestamp.of_json in
      let start = field_map_exn json__ "Start" Timestamp.of_json in
      make ~end_ ~start ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a duration of time defined by start and end timestamps."]
module DimensionValueList =
  struct
    type nonrec t = String_.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:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"DimensionValueList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module EstimatedCarbonEmissions =
  struct
    type nonrec t =
      {
      timePeriod: TimePeriod.t option
        [@ocaml.doc "The reporting period for emission values."];
      dimensionsValues: DimensionsMap.t option
        [@ocaml.doc "The dimensions used to group emissions values."];
      modelVersion: ModelVersion.t option
        [@ocaml.doc
          "The semantic version-formatted string that indicates the methodology version used to calculate the emission values. The AWS Sustainability service reflects the most recent model version for every month. You will not see two entries for the same month with different ModelVersion values. To track the evolution of the methodology and compare emission values from previous versions, we recommend creating a Data Export."];
      emissionsValues: EmissionsMap.t option
        [@ocaml.doc
          "The emissions values for the requested emissions types."]}
    let make ?timePeriod =
      fun ?dimensionsValues ->
        fun ?modelVersion ->
          fun ?emissionsValues ->
            fun () ->
              { timePeriod; dimensionsValues; modelVersion; emissionsValues }
    let to_value x =
      structure_to_value
        [("TimePeriod", (Option.map x.timePeriod ~f:TimePeriod.to_value));
        ("DimensionsValues",
          (Option.map x.dimensionsValues ~f:DimensionsMap.to_value));
        ("ModelVersion",
          (Option.map x.modelVersion ~f:ModelVersion.to_value));
        ("EmissionsValues",
          (Option.map x.emissionsValues ~f:EmissionsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emissionsValues =
        (Option.map ~f:EmissionsMap.of_xml)
          (Xml.child xml_arg0 "EmissionsValues") in
      let modelVersion =
        (Option.map ~f:ModelVersion.of_xml)
          (Xml.child xml_arg0 "ModelVersion") in
      let dimensionsValues =
        (Option.map ~f:DimensionsMap.of_xml)
          (Xml.child xml_arg0 "DimensionsValues") in
      let timePeriod =
        (Option.map ~f:TimePeriod.of_xml) (Xml.child xml_arg0 "TimePeriod") in
      make ?emissionsValues ?modelVersion ?dimensionsValues ?timePeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emissionsValues =
        field_map json__ "EmissionsValues" EmissionsMap.of_json in
      let modelVersion = field_map json__ "ModelVersion" ModelVersion.of_json in
      let dimensionsValues =
        field_map json__ "DimensionsValues" DimensionsMap.of_json in
      let timePeriod = field_map json__ "TimePeriod" TimePeriod.of_json in
      make ?emissionsValues ?modelVersion ?dimensionsValues ?timePeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains estimated carbon emissions data for a specific time period and dimension grouping."]
module DimensionListMap =
  struct
    type nonrec t = (Dimension.t * DimensionValueList.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types Dimension DimensionValueList"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Dimension.to_value x) |>
                    (fun x ->
                       (DimensionValueList.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Dimension.of_string
        ~of_json:DimensionValueList.of_json j
    let to_json v = composed_to_json to_value v
  end
module Month =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:12) >>= (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 Month" 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 DimensionEntry =
  struct
    type nonrec t =
      {
      dimension: Dimension.t option
        [@ocaml.doc "The dimension type that categorizes this entry."];
      value: String_.t option
        [@ocaml.doc
          "The value for the specified dimension. Valid values vary based on the dimension type (e.g., us-east-1 for the REGION dimension, AmazonEC2 for the SERVICE dimension)."]}
    let make ?dimension = fun ?value -> fun () -> { dimension; value }
    let to_value x =
      structure_to_value
        [("Dimension", (Option.map x.dimension ~f:Dimension.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let dimension =
        (Option.map ~f:Dimension.of_xml) (Xml.child xml_arg0 "Dimension") in
      make ?value ?dimension ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let dimension = field_map json__ "Dimension" Dimension.of_json in
      make ?value ?dimension ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a dimension and its corresponding value."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module EstimatedCarbonEmissionsList =
  struct
    type nonrec t = EstimatedCarbonEmissions.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:EstimatedCarbonEmissions.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:EstimatedCarbonEmissions.of_xml)
    let of_json j =
      list_of_json ~kind:"EstimatedCarbonEmissionsList"
        ~of_json:EstimatedCarbonEmissions.of_json j
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of an unknown error, exception, or failure."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.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" String_.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 specified by an Amazon Web Services service."]
module DimensionList =
  struct
    type nonrec t = Dimension.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:Dimension.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:Dimension.of_xml)
    let of_json j =
      list_of_json ~kind:"DimensionList" ~of_json:Dimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmissionsTypeList =
  struct
    type nonrec t = EmissionsType.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:EmissionsType.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:EmissionsType.of_xml)
    let of_json j =
      list_of_json ~kind:"EmissionsTypeList" ~of_json:EmissionsType.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterExpression =
  struct
    type nonrec t =
      {
      dimensions: DimensionListMap.t option
        [@ocaml.doc "Filters emission values by specific dimension values."]}
    let make ?dimensions = fun () -> { dimensions }
    let to_value x =
      structure_to_value
        [("Dimensions",
           (Option.map x.dimensions ~f:DimensionListMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensions =
        (Option.map ~f:DimensionListMap.of_xml)
          (Xml.child xml_arg0 "Dimensions") in
      make ?dimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensions = field_map json__ "Dimensions" DimensionListMap.of_json in
      make ?dimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters emission values by specific dimension values."]
module GranularityConfiguration =
  struct
    type nonrec t =
      {
      fiscalYearStartMonth: Month.t option
        [@ocaml.doc
          "The month (1-12) when the fiscal year begins. Used for YEARLY_FISCAL and QUARTERLY_FISCAL granularity. Defaults to 1 (January)."]}
    let make ?fiscalYearStartMonth = fun () -> { fiscalYearStartMonth }
    let to_value x =
      structure_to_value
        [("FiscalYearStartMonth",
           (Option.map x.fiscalYearStartMonth ~f:Month.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fiscalYearStartMonth =
        (Option.map ~f:Month.of_xml)
          (Xml.child xml_arg0 "FiscalYearStartMonth") in
      make ?fiscalYearStartMonth ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fiscalYearStartMonth =
        field_map json__ "FiscalYearStartMonth" Month.of_json in
      make ?fiscalYearStartMonth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration for the fiscal year granularities (e.g., YEARLY_FISCAL, QUARTERLY_FISCAL."]
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5000) >>= (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 MaxResults" 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 TimeGranularity =
  struct
    type nonrec t =
      | YEARLY_CALENDAR 
      | YEARLY_FISCAL 
      | QUARTERLY_CALENDAR 
      | QUARTERLY_FISCAL 
      | MONTHLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | YEARLY_CALENDAR -> "YEARLY_CALENDAR"
      | YEARLY_FISCAL -> "YEARLY_FISCAL"
      | QUARTERLY_CALENDAR -> "QUARTERLY_CALENDAR"
      | QUARTERLY_FISCAL -> "QUARTERLY_FISCAL"
      | MONTHLY -> "MONTHLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "YEARLY_CALENDAR" -> YEARLY_CALENDAR
      | "YEARLY_FISCAL" -> YEARLY_FISCAL
      | "QUARTERLY_CALENDAR" -> QUARTERLY_CALENDAR
      | "QUARTERLY_FISCAL" -> QUARTERLY_FISCAL
      | "MONTHLY" -> MONTHLY
      | 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 TimeGranularity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TimeGranularity" j)
    let to_json = simple_to_json to_value
  end
module DimensionEntryList =
  struct
    type nonrec t = DimensionEntry.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:DimensionEntry.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:DimensionEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"DimensionEntryList" ~of_json:DimensionEntry.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module GetEstimatedCarbonEmissionsResponse =
  struct
    type nonrec t =
      {
      results: EstimatedCarbonEmissionsList.t option
        [@ocaml.doc "The result of the requested inputs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token indicating there are additional pages available. You can use the token in a following request to fetch the next set of 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 ?results = fun ?nextToken -> fun () -> { results; 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
        [("Results",
           (Option.map x.results ~f:EstimatedCarbonEmissionsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let results =
        (Option.map ~f:EstimatedCarbonEmissionsList.of_xml)
          (Xml.child xml_arg0 "Results") in
      make ?nextToken ?results ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let results =
        field_map json__ "Results" EstimatedCarbonEmissionsList.of_json in
      make ?nextToken ?results ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns estimated carbon emission values based on customer grouping and filtering parameters. We recommend using pagination to ensure that the operation returns quickly and successfully."]
module GetEstimatedCarbonEmissionsRequest =
  struct
    type nonrec t =
      {
      timePeriod: TimePeriod.t
        [@ocaml.doc
          "The date range for fetching estimated carbon emissions."];
      groupBy: DimensionList.t option
        [@ocaml.doc
          "The dimensions available for grouping estimated carbon emissions."];
      filterBy: FilterExpression.t option
        [@ocaml.doc "The criteria for filtering estimated carbon emissions."];
      emissionsTypes: EmissionsTypeList.t option
        [@ocaml.doc
          "The emission types to include in the results. If absent, returns TOTAL_LBM_CARBON_EMISSIONS and TOTAL_MBM_CARBON_EMISSIONS emissions types."];
      granularity: TimeGranularity.t option
        [@ocaml.doc
          "The time granularity for the results. If absent, uses MONTHLY time granularity."];
      granularityConfiguration: GranularityConfiguration.t option
        [@ocaml.doc
          "Configuration for fiscal year calculations when using YEARLY_FISCAL or QUARTERLY_FISCAL granularity."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Default is 40."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token specifying which page of results to return in the response. If no token is provided, the default page is the first page."]}
    let context_ = "GetEstimatedCarbonEmissionsRequest"
    let make ?groupBy =
      fun ?filterBy ->
        fun ?emissionsTypes ->
          fun ?granularity ->
            fun ?granularityConfiguration ->
              fun ?maxResults ->
                fun ?nextToken ->
                  fun ~timePeriod ->
                    fun () ->
                      {
                        groupBy;
                        filterBy;
                        emissionsTypes;
                        granularity;
                        granularityConfiguration;
                        maxResults;
                        nextToken;
                        timePeriod
                      }
    let to_value x =
      structure_to_value
        [("TimePeriod", (Some (TimePeriod.to_value x.timePeriod)));
        ("GroupBy", (Option.map x.groupBy ~f:DimensionList.to_value));
        ("FilterBy", (Option.map x.filterBy ~f:FilterExpression.to_value));
        ("EmissionsTypes",
          (Option.map x.emissionsTypes ~f:EmissionsTypeList.to_value));
        ("Granularity",
          (Option.map x.granularity ~f:TimeGranularity.to_value));
        ("GranularityConfiguration",
          (Option.map x.granularityConfiguration
             ~f:GranularityConfiguration.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let granularityConfiguration =
        (Option.map ~f:GranularityConfiguration.of_xml)
          (Xml.child xml_arg0 "GranularityConfiguration") in
      let granularity =
        (Option.map ~f:TimeGranularity.of_xml)
          (Xml.child xml_arg0 "Granularity") in
      let emissionsTypes =
        (Option.map ~f:EmissionsTypeList.of_xml)
          (Xml.child xml_arg0 "EmissionsTypes") in
      let filterBy =
        (Option.map ~f:FilterExpression.of_xml)
          (Xml.child xml_arg0 "FilterBy") in
      let groupBy =
        (Option.map ~f:DimensionList.of_xml) (Xml.child xml_arg0 "GroupBy") in
      let timePeriod =
        TimePeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimePeriod") in
      make ?nextToken ?maxResults ?granularityConfiguration ?granularity
        ?emissionsTypes ?filterBy ?groupBy ~timePeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let granularityConfiguration =
        field_map json__ "GranularityConfiguration"
          GranularityConfiguration.of_json in
      let granularity =
        field_map json__ "Granularity" TimeGranularity.of_json in
      let emissionsTypes =
        field_map json__ "EmissionsTypes" EmissionsTypeList.of_json in
      let filterBy = field_map json__ "FilterBy" FilterExpression.of_json in
      let groupBy = field_map json__ "GroupBy" DimensionList.of_json in
      let timePeriod = field_map_exn json__ "TimePeriod" TimePeriod.of_json in
      make ?nextToken ?maxResults ?granularityConfiguration ?granularity
        ?emissionsTypes ?filterBy ?groupBy ~timePeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns estimated carbon emission values based on customer grouping and filtering parameters. We recommend using pagination to ensure that the operation returns quickly and successfully."]
module GetEstimatedCarbonEmissionsDimensionValuesResponse =
  struct
    type nonrec t =
      {
      results: DimensionEntryList.t option
        [@ocaml.doc
          "The list of possible dimensions over which the emissions data is aggregated."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token indicating there are additional pages available. You can use the token in a following request to fetch the next set of 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 ?results = fun ?nextToken -> fun () -> { results; 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
        [("Results", (Option.map x.results ~f:DimensionEntryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let results =
        (Option.map ~f:DimensionEntryList.of_xml)
          (Xml.child xml_arg0 "Results") in
      make ?nextToken ?results ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let results = field_map json__ "Results" DimensionEntryList.of_json in
      make ?nextToken ?results ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the possible dimension values available for a customer's account. We recommend using pagination to ensure that the operation returns quickly and successfully."]
module GetEstimatedCarbonEmissionsDimensionValuesRequest =
  struct
    type nonrec t =
      {
      timePeriod: TimePeriod.t
        [@ocaml.doc "The date range for fetching the dimension values."];
      dimensions: DimensionList.t
        [@ocaml.doc
          "The dimensions available for grouping estimated carbon emissions."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Default is 40."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token specifying which page of results to return in the response. If no token is provided, the default page is the first page."]}
    let context_ = "GetEstimatedCarbonEmissionsDimensionValuesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~timePeriod ->
          fun ~dimensions ->
            fun () -> { maxResults; nextToken; timePeriod; dimensions }
    let to_value x =
      structure_to_value
        [("TimePeriod", (Some (TimePeriod.to_value x.timePeriod)));
        ("Dimensions", (Some (DimensionList.to_value x.dimensions)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let dimensions =
        DimensionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Dimensions") in
      let timePeriod =
        TimePeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimePeriod") in
      make ?nextToken ?maxResults ~dimensions ~timePeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let dimensions =
        field_map_exn json__ "Dimensions" DimensionList.of_json in
      let timePeriod = field_map_exn json__ "TimePeriod" TimePeriod.of_json in
      make ?nextToken ?maxResults ~dimensions ~timePeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the possible dimension values available for a customer's account. We recommend using pagination to ensure that the operation returns quickly and successfully."]