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.migrationhubstrategy
let apiVersion = "2020-02-19"
let endpointPrefix = "migrationhub-strategy"
let serviceFullName = "Migration Hub Strategy Recommendations"
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 BinaryAnalyzerName =
  struct
    type nonrec t =
      | DLL_ANALYZER 
      | BYTECODE_ANALYZER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DLL_ANALYZER -> "DLL_ANALYZER"
      | BYTECODE_ANALYZER -> "BYTECODE_ANALYZER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DLL_ANALYZER" -> DLL_ANALYZER
      | "BYTECODE_ANALYZER" -> BYTECODE_ANALYZER
      | 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 BinaryAnalyzerName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BinaryAnalyzerName" j)
    let to_json = simple_to_json to_value
  end
module RunTimeAnalyzerName =
  struct
    type nonrec t =
      | A2C_ANALYZER 
      | REHOST_ANALYZER 
      | EMP_PA_ANALYZER 
      | DATABASE_ANALYZER 
      | SCT_ANALYZER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | A2C_ANALYZER -> "A2C_ANALYZER"
      | REHOST_ANALYZER -> "REHOST_ANALYZER"
      | EMP_PA_ANALYZER -> "EMP_PA_ANALYZER"
      | DATABASE_ANALYZER -> "DATABASE_ANALYZER"
      | SCT_ANALYZER -> "SCT_ANALYZER"
      | Non_static_id s -> s
    let of_string =
      function
      | "A2C_ANALYZER" -> A2C_ANALYZER
      | "REHOST_ANALYZER" -> REHOST_ANALYZER
      | "EMP_PA_ANALYZER" -> EMP_PA_ANALYZER
      | "DATABASE_ANALYZER" -> DATABASE_ANALYZER
      | "SCT_ANALYZER" -> SCT_ANALYZER
      | 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 RunTimeAnalyzerName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RunTimeAnalyzerName" j)
    let to_json = simple_to_json to_value
  end
module SourceCodeAnalyzerName =
  struct
    type nonrec t =
      | CSHARP_ANALYZER 
      | JAVA_ANALYZER 
      | BYTECODE_ANALYZER 
      | PORTING_ASSISTANT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CSHARP_ANALYZER -> "CSHARP_ANALYZER"
      | JAVA_ANALYZER -> "JAVA_ANALYZER"
      | BYTECODE_ANALYZER -> "BYTECODE_ANALYZER"
      | PORTING_ASSISTANT -> "PORTING_ASSISTANT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CSHARP_ANALYZER" -> CSHARP_ANALYZER
      | "JAVA_ANALYZER" -> JAVA_ANALYZER
      | "BYTECODE_ANALYZER" -> BYTECODE_ANALYZER
      | "PORTING_ASSISTANT" -> PORTING_ASSISTANT
      | 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 SourceCodeAnalyzerName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SourceCodeAnalyzerName" j)
    let to_json = simple_to_json to_value
  end
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:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-z]+[0-9a-z\\.\\-]*[0-9a-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:"S3Bucket" 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:0) >>=
             (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:"S3Key" j
    let to_json = simple_to_json to_value
  end
module AnalyzerNameUnion =
  struct
    type nonrec t =
      {
      binaryAnalyzerName: BinaryAnalyzerName.t option
        [@ocaml.doc "The binary analyzer names."];
      runTimeAnalyzerName: RunTimeAnalyzerName.t option
        [@ocaml.doc "The assessment analyzer names."];
      sourceCodeAnalyzerName: SourceCodeAnalyzerName.t option
        [@ocaml.doc "The source code analyzer names."]}
    let make ?binaryAnalyzerName =
      fun ?runTimeAnalyzerName ->
        fun ?sourceCodeAnalyzerName ->
          fun () ->
            { binaryAnalyzerName; runTimeAnalyzerName; sourceCodeAnalyzerName
            }
    let to_value x =
      structure_to_value
        [("binaryAnalyzerName",
           (Option.map x.binaryAnalyzerName ~f:BinaryAnalyzerName.to_value));
        ("runTimeAnalyzerName",
          (Option.map x.runTimeAnalyzerName ~f:RunTimeAnalyzerName.to_value));
        ("sourceCodeAnalyzerName",
          (Option.map x.sourceCodeAnalyzerName
             ~f:SourceCodeAnalyzerName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceCodeAnalyzerName =
        (Option.map ~f:SourceCodeAnalyzerName.of_xml)
          (Xml.child xml_arg0 "sourceCodeAnalyzerName") in
      let runTimeAnalyzerName =
        (Option.map ~f:RunTimeAnalyzerName.of_xml)
          (Xml.child xml_arg0 "runTimeAnalyzerName") in
      let binaryAnalyzerName =
        (Option.map ~f:BinaryAnalyzerName.of_xml)
          (Xml.child xml_arg0 "binaryAnalyzerName") in
      make ?sourceCodeAnalyzerName ?runTimeAnalyzerName ?binaryAnalyzerName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceCodeAnalyzerName =
        field_map json__ "sourceCodeAnalyzerName"
          SourceCodeAnalyzerName.of_json in
      let runTimeAnalyzerName =
        field_map json__ "runTimeAnalyzerName" RunTimeAnalyzerName.of_json in
      let binaryAnalyzerName =
        field_map json__ "binaryAnalyzerName" BinaryAnalyzerName.of_json in
      make ?sourceCodeAnalyzerName ?runTimeAnalyzerName ?binaryAnalyzerName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The combination of the existing analyzers."]
module AntipatternReportStatus =
  struct
    type nonrec t =
      | FAILED 
      | IN_PROGRESS 
      | SUCCESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCESS -> "SUCCESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCESS" -> SUCCESS
      | 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 AntipatternReportStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AntipatternReportStatus" j)
    let to_json = simple_to_json to_value
  end
module S3Object =
  struct
    type nonrec t =
      {
      s3Bucket: S3Bucket.t option [@ocaml.doc "The S3 bucket name."];
      s3key: S3Key.t option [@ocaml.doc "The Amazon S3 key name."]}
    let make ?s3Bucket = fun ?s3key -> fun () -> { s3Bucket; s3key }
    let to_value x =
      structure_to_value
        [("s3Bucket", (Option.map x.s3Bucket ~f:S3Bucket.to_value));
        ("s3key", (Option.map x.s3key ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3key = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "s3key") in
      let s3Bucket =
        (Option.map ~f:S3Bucket.of_xml) (Xml.child xml_arg0 "s3Bucket") in
      make ?s3key ?s3Bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3key = field_map json__ "s3key" S3Key.of_json in
      let s3Bucket = field_map json__ "s3Bucket" S3Bucket.of_json in
      make ?s3key ?s3Bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the S3 bucket name and the Amazon S3 key name."]
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"StatusMessage" j
    let to_json = simple_to_json to_value
  end
module IPAddress =
  struct
    type nonrec t = string
    let context_ = "IPAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])$")));
        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:"IPAddress" j
    let to_json = simple_to_json to_value
  end
module InterfaceName =
  struct
    type nonrec t = string
    let context_ = "InterfaceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        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:"InterfaceName" j
    let to_json = simple_to_json to_value
  end
module MacAddress =
  struct
    type nonrec t = string
    let context_ = "MacAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:17) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([0-9A-Fa-f]{2}[:-]){5}([0-9A-Fa-f]{2})|([0-9a-fA-F]{4}\\\\.[0-9a-fA-F]{4}\\\\.[0-9a-fA-F]{4})$\226\128\157$")));
        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:"MacAddress" j
    let to_json = simple_to_json to_value
  end
module NetMask =
  struct
    type nonrec t = string
    let context_ = "NetMask"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        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:"NetMask" j
    let to_json = simple_to_json to_value
  end
module AuthType =
  struct
    type nonrec t =
      | NTLM 
      | SSH 
      | CERT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NTLM -> "NTLM"
      | SSH -> "SSH"
      | CERT -> "CERT"
      | Non_static_id s -> s
    let of_string =
      function
      | "NTLM" -> NTLM
      | "SSH" -> SSH
      | "CERT" -> CERT
      | 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 AuthType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthType" j)
    let to_json = simple_to_json to_value
  end
module OSType =
  struct
    type nonrec t =
      | LINUX 
      | WINDOWS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LINUX -> "LINUX"
      | WINDOWS -> "WINDOWS"
      | Non_static_id s -> s
    let of_string =
      function
      | "LINUX" -> LINUX
      | "WINDOWS" -> WINDOWS
      | 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 OSType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OSType" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"String" j
    let to_json = simple_to_json to_value
  end
module PipelineType =
  struct
    type nonrec t =
      | AZURE_DEVOPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AZURE_DEVOPS -> "AZURE_DEVOPS" | Non_static_id s -> s
    let of_string =
      function | "AZURE_DEVOPS" -> AZURE_DEVOPS | 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 PipelineType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PipelineType" j)
    let to_json = simple_to_json to_value
  end
module VersionControlType =
  struct
    type nonrec t =
      | GITHUB 
      | GITHUB_ENTERPRISE 
      | AZURE_DEVOPS_GIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GITHUB -> "GITHUB"
      | GITHUB_ENTERPRISE -> "GITHUB_ENTERPRISE"
      | AZURE_DEVOPS_GIT -> "AZURE_DEVOPS_GIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "GITHUB" -> GITHUB
      | "GITHUB_ENTERPRISE" -> GITHUB_ENTERPRISE
      | "AZURE_DEVOPS_GIT" -> AZURE_DEVOPS_GIT
      | 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 VersionControlType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VersionControlType" j)
    let to_json = simple_to_json to_value
  end
module RuntimeAnalysisStatus =
  struct
    type nonrec t =
      | ANALYSIS_TO_BE_SCHEDULED 
      | ANALYSIS_STARTED 
      | ANALYSIS_SUCCESS 
      | ANALYSIS_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ANALYSIS_TO_BE_SCHEDULED -> "ANALYSIS_TO_BE_SCHEDULED"
      | ANALYSIS_STARTED -> "ANALYSIS_STARTED"
      | ANALYSIS_SUCCESS -> "ANALYSIS_SUCCESS"
      | ANALYSIS_FAILED -> "ANALYSIS_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ANALYSIS_TO_BE_SCHEDULED" -> ANALYSIS_TO_BE_SCHEDULED
      | "ANALYSIS_STARTED" -> ANALYSIS_STARTED
      | "ANALYSIS_SUCCESS" -> ANALYSIS_SUCCESS
      | "ANALYSIS_FAILED" -> ANALYSIS_FAILED
      | 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 RuntimeAnalysisStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RuntimeAnalysisStatus" j)
    let to_json = simple_to_json to_value
  end
module SrcCodeOrDbAnalysisStatus =
  struct
    type nonrec t =
      | ANALYSIS_TO_BE_SCHEDULED 
      | ANALYSIS_STARTED 
      | ANALYSIS_SUCCESS 
      | ANALYSIS_FAILED 
      | ANALYSIS_PARTIAL_SUCCESS 
      | UNCONFIGURED 
      | CONFIGURED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ANALYSIS_TO_BE_SCHEDULED -> "ANALYSIS_TO_BE_SCHEDULED"
      | ANALYSIS_STARTED -> "ANALYSIS_STARTED"
      | ANALYSIS_SUCCESS -> "ANALYSIS_SUCCESS"
      | ANALYSIS_FAILED -> "ANALYSIS_FAILED"
      | ANALYSIS_PARTIAL_SUCCESS -> "ANALYSIS_PARTIAL_SUCCESS"
      | UNCONFIGURED -> "UNCONFIGURED"
      | CONFIGURED -> "CONFIGURED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ANALYSIS_TO_BE_SCHEDULED" -> ANALYSIS_TO_BE_SCHEDULED
      | "ANALYSIS_STARTED" -> ANALYSIS_STARTED
      | "ANALYSIS_SUCCESS" -> ANALYSIS_SUCCESS
      | "ANALYSIS_FAILED" -> ANALYSIS_FAILED
      | "ANALYSIS_PARTIAL_SUCCESS" -> ANALYSIS_PARTIAL_SUCCESS
      | "UNCONFIGURED" -> UNCONFIGURED
      | "CONFIGURED" -> CONFIGURED
      | 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 SrcCodeOrDbAnalysisStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SrcCodeOrDbAnalysisStatus" j)
    let to_json = simple_to_json to_value
  end
module AntipatternReportResult =
  struct
    type nonrec t =
      {
      analyzerName: AnalyzerNameUnion.t option
        [@ocaml.doc "The analyzer name."];
      antiPatternReportS3Object: S3Object.t option ;
      antipatternReportStatus: AntipatternReportStatus.t option
        [@ocaml.doc "The status of the anti-pattern report generation."];
      antipatternReportStatusMessage: StatusMessage.t option
        [@ocaml.doc "The status message for the anti-pattern."]}
    let make ?analyzerName =
      fun ?antiPatternReportS3Object ->
        fun ?antipatternReportStatus ->
          fun ?antipatternReportStatusMessage ->
            fun () ->
              {
                analyzerName;
                antiPatternReportS3Object;
                antipatternReportStatus;
                antipatternReportStatusMessage
              }
    let to_value x =
      structure_to_value
        [("analyzerName",
           (Option.map x.analyzerName ~f:AnalyzerNameUnion.to_value));
        ("antiPatternReportS3Object",
          (Option.map x.antiPatternReportS3Object ~f:S3Object.to_value));
        ("antipatternReportStatus",
          (Option.map x.antipatternReportStatus
             ~f:AntipatternReportStatus.to_value));
        ("antipatternReportStatusMessage",
          (Option.map x.antipatternReportStatusMessage
             ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let antipatternReportStatusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatusMessage") in
      let antipatternReportStatus =
        (Option.map ~f:AntipatternReportStatus.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatus") in
      let antiPatternReportS3Object =
        (Option.map ~f:S3Object.of_xml)
          (Xml.child xml_arg0 "antiPatternReportS3Object") in
      let analyzerName =
        (Option.map ~f:AnalyzerNameUnion.of_xml)
          (Xml.child xml_arg0 "analyzerName") in
      make ?antipatternReportStatusMessage ?antipatternReportStatus
        ?antiPatternReportS3Object ?analyzerName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let antipatternReportStatusMessage =
        field_map json__ "antipatternReportStatusMessage"
          StatusMessage.of_json in
      let antipatternReportStatus =
        field_map json__ "antipatternReportStatus"
          AntipatternReportStatus.of_json in
      let antiPatternReportS3Object =
        field_map json__ "antiPatternReportS3Object" S3Object.of_json in
      let analyzerName =
        field_map json__ "analyzerName" AnalyzerNameUnion.of_json in
      make ?antipatternReportStatusMessage ?antipatternReportStatus
        ?antiPatternReportS3Object ?analyzerName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The anti-pattern report result."]
module AwsManagedTargetDestination =
  struct
    type nonrec t =
      | None_specified 
      | AWS_Elastic_BeanStalk 
      | AWS_Fargate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | AWS_Elastic_BeanStalk -> "AWS Elastic BeanStalk"
      | AWS_Fargate -> "AWS Fargate"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "AWS Elastic BeanStalk" -> AWS_Elastic_BeanStalk
      | "AWS Fargate" -> AWS_Fargate
      | 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 AwsManagedTargetDestination"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AwsManagedTargetDestination" j)
    let to_json = simple_to_json to_value
  end
module NoPreferenceTargetDestination =
  struct
    type nonrec t =
      | None_specified 
      | AWS_Elastic_BeanStalk 
      | AWS_Fargate 
      | Amazon_Elastic_Cloud_Compute__EC2_ 
      | Amazon_Elastic_Container_Service__ECS_ 
      | Amazon_Elastic_Kubernetes_Service__EKS_ 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | AWS_Elastic_BeanStalk -> "AWS Elastic BeanStalk"
      | AWS_Fargate -> "AWS Fargate"
      | Amazon_Elastic_Cloud_Compute__EC2_ ->
          "Amazon Elastic Cloud Compute (EC2)"
      | Amazon_Elastic_Container_Service__ECS_ ->
          "Amazon Elastic Container Service (ECS)"
      | Amazon_Elastic_Kubernetes_Service__EKS_ ->
          "Amazon Elastic Kubernetes Service (EKS)"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "AWS Elastic BeanStalk" -> AWS_Elastic_BeanStalk
      | "AWS Fargate" -> AWS_Fargate
      | "Amazon Elastic Cloud Compute (EC2)" ->
          Amazon_Elastic_Cloud_Compute__EC2_
      | "Amazon Elastic Container Service (ECS)" ->
          Amazon_Elastic_Container_Service__ECS_
      | "Amazon Elastic Kubernetes Service (EKS)" ->
          Amazon_Elastic_Kubernetes_Service__EKS_
      | 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 NoPreferenceTargetDestination"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NoPreferenceTargetDestination" j)
    let to_json = simple_to_json to_value
  end
module SelfManageTargetDestination =
  struct
    type nonrec t =
      | None_specified 
      | Amazon_Elastic_Cloud_Compute__EC2_ 
      | Amazon_Elastic_Container_Service__ECS_ 
      | Amazon_Elastic_Kubernetes_Service__EKS_ 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | Amazon_Elastic_Cloud_Compute__EC2_ ->
          "Amazon Elastic Cloud Compute (EC2)"
      | Amazon_Elastic_Container_Service__ECS_ ->
          "Amazon Elastic Container Service (ECS)"
      | Amazon_Elastic_Kubernetes_Service__EKS_ ->
          "Amazon Elastic Kubernetes Service (EKS)"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "Amazon Elastic Cloud Compute (EC2)" ->
          Amazon_Elastic_Cloud_Compute__EC2_
      | "Amazon Elastic Container Service (ECS)" ->
          Amazon_Elastic_Container_Service__ECS_
      | "Amazon Elastic Kubernetes Service (EKS)" ->
          Amazon_Elastic_Kubernetes_Service__EKS_
      | 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 SelfManageTargetDestination"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SelfManageTargetDestination" j)
    let to_json = simple_to_json to_value
  end
module HeterogeneousTargetDatabaseEngine =
  struct
    type nonrec t =
      | None_specified 
      | Amazon_Aurora 
      | AWS_PostgreSQL 
      | MySQL 
      | Microsoft_SQL_Server 
      | Oracle_Database 
      | MariaDB 
      | SAP 
      | Db2_LUW 
      | MongoDB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | Amazon_Aurora -> "Amazon Aurora"
      | AWS_PostgreSQL -> "AWS PostgreSQL"
      | MySQL -> "MySQL"
      | Microsoft_SQL_Server -> "Microsoft SQL Server"
      | Oracle_Database -> "Oracle Database"
      | MariaDB -> "MariaDB"
      | SAP -> "SAP"
      | Db2_LUW -> "Db2 LUW"
      | MongoDB -> "MongoDB"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "Amazon Aurora" -> Amazon_Aurora
      | "AWS PostgreSQL" -> AWS_PostgreSQL
      | "MySQL" -> MySQL
      | "Microsoft SQL Server" -> Microsoft_SQL_Server
      | "Oracle Database" -> Oracle_Database
      | "MariaDB" -> MariaDB
      | "SAP" -> SAP
      | "Db2 LUW" -> Db2_LUW
      | "MongoDB" -> MongoDB
      | 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 HeterogeneousTargetDatabaseEngine"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"HeterogeneousTargetDatabaseEngine" j)
    let to_json = simple_to_json to_value
  end
module HomogeneousTargetDatabaseEngine =
  struct
    type nonrec t =
      | None_specified 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | None_specified -> "None specified" | Non_static_id s -> s
    let of_string =
      function | "None specified" -> None_specified | 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 HomogeneousTargetDatabaseEngine"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"HomogeneousTargetDatabaseEngine" j)
    let to_json = simple_to_json to_value
  end
module TargetDatabaseEngine =
  struct
    type nonrec t =
      | None_specified 
      | Amazon_Aurora 
      | AWS_PostgreSQL 
      | MySQL 
      | Microsoft_SQL_Server 
      | Oracle_Database 
      | MariaDB 
      | SAP 
      | Db2_LUW 
      | MongoDB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | Amazon_Aurora -> "Amazon Aurora"
      | AWS_PostgreSQL -> "AWS PostgreSQL"
      | MySQL -> "MySQL"
      | Microsoft_SQL_Server -> "Microsoft SQL Server"
      | Oracle_Database -> "Oracle Database"
      | MariaDB -> "MariaDB"
      | SAP -> "SAP"
      | Db2_LUW -> "Db2 LUW"
      | MongoDB -> "MongoDB"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "Amazon Aurora" -> Amazon_Aurora
      | "AWS PostgreSQL" -> AWS_PostgreSQL
      | "MySQL" -> MySQL
      | "Microsoft SQL Server" -> Microsoft_SQL_Server
      | "Oracle Database" -> Oracle_Database
      | "MariaDB" -> MariaDB
      | "SAP" -> SAP
      | "Db2 LUW" -> Db2_LUW
      | "MongoDB" -> MongoDB
      | 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 TargetDatabaseEngine" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetDatabaseEngine" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = 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 Severity =
  struct
    type nonrec t =
      | HIGH 
      | MEDIUM 
      | LOW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HIGH -> "HIGH"
      | MEDIUM -> "MEDIUM"
      | LOW -> "LOW"
      | Non_static_id s -> s
    let of_string =
      function
      | "HIGH" -> HIGH
      | "MEDIUM" -> MEDIUM
      | "LOW" -> LOW
      | 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 Severity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Severity" j)
    let to_json = simple_to_json to_value
  end
module Strategy =
  struct
    type nonrec t =
      | Rehost 
      | Retirement 
      | Refactor 
      | Replatform 
      | Retain 
      | Relocate 
      | Repurchase 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Rehost -> "Rehost"
      | Retirement -> "Retirement"
      | Refactor -> "Refactor"
      | Replatform -> "Replatform"
      | Retain -> "Retain"
      | Relocate -> "Relocate"
      | Repurchase -> "Repurchase"
      | Non_static_id s -> s
    let of_string =
      function
      | "Rehost" -> Rehost
      | "Retirement" -> Retirement
      | "Refactor" -> Refactor
      | "Replatform" -> Replatform
      | "Retain" -> Retain
      | "Relocate" -> Relocate
      | "Repurchase" -> Repurchase
      | 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 Strategy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Strategy" j)
    let to_json = simple_to_json to_value
  end
module TranformationToolDescription =
  struct
    type nonrec t = string
    let context_ = "TranformationToolDescription"
    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:"TranformationToolDescription" j
    let to_json = simple_to_json to_value
  end
module TranformationToolInstallationLink =
  struct
    type nonrec t = string
    let context_ = "TranformationToolInstallationLink"
    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:"TranformationToolInstallationLink" j
    let to_json = simple_to_json to_value
  end
module TransformationToolName =
  struct
    type nonrec t =
      | App2Container 
      | Porting_Assistant_For__NET 
      | End_of_Support_Migration 
      | Windows_Web_Application_Migration_Assistant 
      | Application_Migration_Service 
      | Strategy_Recommendation_Support 
      | In_Place_Operating_System_Upgrade 
      | Schema_Conversion_Tool 
      | Database_Migration_Service 
      | Native_SQL_Server_Backup_Restore 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | App2Container -> "App2Container"
      | Porting_Assistant_For__NET -> "Porting Assistant For .NET"
      | End_of_Support_Migration -> "End of Support Migration"
      | Windows_Web_Application_Migration_Assistant ->
          "Windows Web Application Migration Assistant"
      | Application_Migration_Service -> "Application Migration Service"
      | Strategy_Recommendation_Support -> "Strategy Recommendation Support"
      | In_Place_Operating_System_Upgrade ->
          "In Place Operating System Upgrade"
      | Schema_Conversion_Tool -> "Schema Conversion Tool"
      | Database_Migration_Service -> "Database Migration Service"
      | Native_SQL_Server_Backup_Restore ->
          "Native SQL Server Backup/Restore"
      | Non_static_id s -> s
    let of_string =
      function
      | "App2Container" -> App2Container
      | "Porting Assistant For .NET" -> Porting_Assistant_For__NET
      | "End of Support Migration" -> End_of_Support_Migration
      | "Windows Web Application Migration Assistant" ->
          Windows_Web_Application_Migration_Assistant
      | "Application Migration Service" -> Application_Migration_Service
      | "Strategy Recommendation Support" -> Strategy_Recommendation_Support
      | "In Place Operating System Upgrade" ->
          In_Place_Operating_System_Upgrade
      | "Schema Conversion Tool" -> Schema_Conversion_Tool
      | "Database Migration Service" -> Database_Migration_Service
      | "Native SQL Server Backup/Restore" ->
          Native_SQL_Server_Backup_Restore
      | 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 TransformationToolName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransformationToolName" j)
    let to_json = simple_to_json to_value
  end
module NetworkInfo =
  struct
    type nonrec t =
      {
      interfaceName: InterfaceName.t option
        [@ocaml.doc
          "Information about the name of the interface of the server for which the assessment was run."];
      ipAddress: IPAddress.t option
        [@ocaml.doc
          "Information about the IP address of the server for which the assessment was run."];
      macAddress: MacAddress.t option
        [@ocaml.doc
          "Information about the MAC address of the server for which the assessment was run."];
      netMask: NetMask.t option
        [@ocaml.doc
          "Information about the subnet mask of the server for which the assessment was run."]}
    let make ?interfaceName =
      fun ?ipAddress ->
        fun ?macAddress ->
          fun ?netMask ->
            fun () -> { interfaceName; ipAddress; macAddress; netMask }
    let to_value x =
      structure_to_value
        [("interfaceName",
           (Option.map x.interfaceName ~f:InterfaceName.to_value));
        ("ipAddress", (Option.map x.ipAddress ~f:IPAddress.to_value));
        ("macAddress", (Option.map x.macAddress ~f:MacAddress.to_value));
        ("netMask", (Option.map x.netMask ~f:NetMask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let netMask =
        (Option.map ~f:NetMask.of_xml) (Xml.child xml_arg0 "netMask") in
      let macAddress =
        (Option.map ~f:MacAddress.of_xml) (Xml.child xml_arg0 "macAddress") in
      let ipAddress =
        (Option.map ~f:IPAddress.of_xml) (Xml.child xml_arg0 "ipAddress") in
      let interfaceName =
        (Option.map ~f:InterfaceName.of_xml)
          (Xml.child xml_arg0 "interfaceName") in
      make ?netMask ?macAddress ?ipAddress ?interfaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let netMask = field_map json__ "netMask" NetMask.of_json in
      let macAddress = field_map json__ "macAddress" MacAddress.of_json in
      let ipAddress = field_map json__ "ipAddress" IPAddress.of_json in
      let interfaceName =
        field_map json__ "interfaceName" InterfaceName.of_json in
      make ?netMask ?macAddress ?ipAddress ?interfaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the server's network for which the assessment was run."]
module OSVersion =
  struct
    type nonrec t = string
    let context_ = "OSVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"OSVersion" j
    let to_json = simple_to_json to_value
  end
module IPAddressBasedRemoteInfo =
  struct
    type nonrec t =
      {
      authType: AuthType.t option [@ocaml.doc "The type of authorization."];
      ipAddressConfigurationTimeStamp: String_.t option
        [@ocaml.doc "The time stamp of the configuration."];
      osType: OSType.t option
        [@ocaml.doc "The type of the operating system."]}
    let make ?authType =
      fun ?ipAddressConfigurationTimeStamp ->
        fun ?osType ->
          fun () -> { authType; ipAddressConfigurationTimeStamp; osType }
    let to_value x =
      structure_to_value
        [("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("ipAddressConfigurationTimeStamp",
          (Option.map x.ipAddressConfigurationTimeStamp ~f:String_.to_value));
        ("osType", (Option.map x.osType ~f:OSType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let osType =
        (Option.map ~f:OSType.of_xml) (Xml.child xml_arg0 "osType") in
      let ipAddressConfigurationTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ipAddressConfigurationTimeStamp") in
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      make ?osType ?ipAddressConfigurationTimeStamp ?authType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let osType = field_map json__ "osType" OSType.of_json in
      let ipAddressConfigurationTimeStamp =
        field_map json__ "ipAddressConfigurationTimeStamp" String_.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      make ?osType ?ipAddressConfigurationTimeStamp ?authType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "IP address based configurations."]
module PipelineInfo =
  struct
    type nonrec t =
      {
      pipelineConfigurationTimeStamp: String_.t option
        [@ocaml.doc "The time when the pipeline info was configured."];
      pipelineType: PipelineType.t option
        [@ocaml.doc "The type of pipeline."]}
    let make ?pipelineConfigurationTimeStamp =
      fun ?pipelineType ->
        fun () -> { pipelineConfigurationTimeStamp; pipelineType }
    let to_value x =
      structure_to_value
        [("pipelineConfigurationTimeStamp",
           (Option.map x.pipelineConfigurationTimeStamp ~f:String_.to_value));
        ("pipelineType",
          (Option.map x.pipelineType ~f:PipelineType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineType =
        (Option.map ~f:PipelineType.of_xml)
          (Xml.child xml_arg0 "pipelineType") in
      let pipelineConfigurationTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "pipelineConfigurationTimeStamp") in
      make ?pipelineType ?pipelineConfigurationTimeStamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineType = field_map json__ "pipelineType" PipelineType.of_json in
      let pipelineConfigurationTimeStamp =
        field_map json__ "pipelineConfigurationTimeStamp" String_.of_json in
      make ?pipelineType ?pipelineConfigurationTimeStamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information of the pipeline."]
module VcenterBasedRemoteInfo =
  struct
    type nonrec t =
      {
      osType: OSType.t option
        [@ocaml.doc "The type of the operating system."];
      vcenterConfigurationTimeStamp: String_.t option
        [@ocaml.doc
          "The time when the remote server based on vCenter was last configured."]}
    let make ?osType =
      fun ?vcenterConfigurationTimeStamp ->
        fun () -> { osType; vcenterConfigurationTimeStamp }
    let to_value x =
      structure_to_value
        [("osType", (Option.map x.osType ~f:OSType.to_value));
        ("vcenterConfigurationTimeStamp",
          (Option.map x.vcenterConfigurationTimeStamp ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vcenterConfigurationTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "vcenterConfigurationTimeStamp") in
      let osType =
        (Option.map ~f:OSType.of_xml) (Xml.child xml_arg0 "osType") in
      make ?vcenterConfigurationTimeStamp ?osType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vcenterConfigurationTimeStamp =
        field_map json__ "vcenterConfigurationTimeStamp" String_.of_json in
      let osType = field_map json__ "osType" OSType.of_json in
      make ?vcenterConfigurationTimeStamp ?osType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the server in vCenter."]
module VersionControlInfo =
  struct
    type nonrec t =
      {
      versionControlConfigurationTimeStamp: String_.t option
        [@ocaml.doc
          "The time when the version control system was last configured."];
      versionControlType: VersionControlType.t option
        [@ocaml.doc "The type of version control."]}
    let make ?versionControlConfigurationTimeStamp =
      fun ?versionControlType ->
        fun () ->
          { versionControlConfigurationTimeStamp; versionControlType }
    let to_value x =
      structure_to_value
        [("versionControlConfigurationTimeStamp",
           (Option.map x.versionControlConfigurationTimeStamp
              ~f:String_.to_value));
        ("versionControlType",
          (Option.map x.versionControlType ~f:VersionControlType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionControlType =
        (Option.map ~f:VersionControlType.of_xml)
          (Xml.child xml_arg0 "versionControlType") in
      let versionControlConfigurationTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "versionControlConfigurationTimeStamp") in
      make ?versionControlType ?versionControlConfigurationTimeStamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionControlType =
        field_map json__ "versionControlType" VersionControlType.of_json in
      let versionControlConfigurationTimeStamp =
        field_map json__ "versionControlConfigurationTimeStamp"
          String_.of_json in
      make ?versionControlType ?versionControlConfigurationTimeStamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the version control configuration."]
module AnalysisStatusUnion =
  struct
    type nonrec t =
      {
      runtimeAnalysisStatus: RuntimeAnalysisStatus.t option
        [@ocaml.doc "The status of the analysis."];
      srcCodeOrDbAnalysisStatus: SrcCodeOrDbAnalysisStatus.t option
        [@ocaml.doc "The status of the source code or database analysis."]}
    let make ?runtimeAnalysisStatus =
      fun ?srcCodeOrDbAnalysisStatus ->
        fun () -> { runtimeAnalysisStatus; srcCodeOrDbAnalysisStatus }
    let to_value x =
      structure_to_value
        [("runtimeAnalysisStatus",
           (Option.map x.runtimeAnalysisStatus
              ~f:RuntimeAnalysisStatus.to_value));
        ("srcCodeOrDbAnalysisStatus",
          (Option.map x.srcCodeOrDbAnalysisStatus
             ~f:SrcCodeOrDbAnalysisStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let srcCodeOrDbAnalysisStatus =
        (Option.map ~f:SrcCodeOrDbAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "srcCodeOrDbAnalysisStatus") in
      let runtimeAnalysisStatus =
        (Option.map ~f:RuntimeAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "runtimeAnalysisStatus") in
      make ?srcCodeOrDbAnalysisStatus ?runtimeAnalysisStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let srcCodeOrDbAnalysisStatus =
        field_map json__ "srcCodeOrDbAnalysisStatus"
          SrcCodeOrDbAnalysisStatus.of_json in
      let runtimeAnalysisStatus =
        field_map json__ "runtimeAnalysisStatus"
          RuntimeAnalysisStatus.of_json in
      make ?srcCodeOrDbAnalysisStatus ?runtimeAnalysisStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A combination of existing analysis statuses."]
module AnalysisType =
  struct
    type nonrec t =
      | SOURCE_CODE_ANALYSIS 
      | DATABASE_ANALYSIS 
      | RUNTIME_ANALYSIS 
      | BINARY_ANALYSIS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOURCE_CODE_ANALYSIS -> "SOURCE_CODE_ANALYSIS"
      | DATABASE_ANALYSIS -> "DATABASE_ANALYSIS"
      | RUNTIME_ANALYSIS -> "RUNTIME_ANALYSIS"
      | BINARY_ANALYSIS -> "BINARY_ANALYSIS"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOURCE_CODE_ANALYSIS" -> SOURCE_CODE_ANALYSIS
      | "DATABASE_ANALYSIS" -> DATABASE_ANALYSIS
      | "RUNTIME_ANALYSIS" -> RUNTIME_ANALYSIS
      | "BINARY_ANALYSIS" -> BINARY_ANALYSIS
      | 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 AnalysisType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AnalysisType" j)
    let to_json = simple_to_json to_value
  end
module AntipatternReportResultList =
  struct
    type nonrec t = AntipatternReportResult.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:AntipatternReportResult.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:AntipatternReportResult.of_xml)
    let of_json j =
      list_of_json ~kind:"AntipatternReportResultList"
        ~of_json:AntipatternReportResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module AwsManagedTargetDestinations =
  struct
    type nonrec t = AwsManagedTargetDestination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AwsManagedTargetDestination.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:AwsManagedTargetDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"AwsManagedTargetDestinations"
        ~of_json:AwsManagedTargetDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module NoPreferenceTargetDestinations =
  struct
    type nonrec t = NoPreferenceTargetDestination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NoPreferenceTargetDestination.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:NoPreferenceTargetDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"NoPreferenceTargetDestinations"
        ~of_json:NoPreferenceTargetDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module SelfManageTargetDestinations =
  struct
    type nonrec t = SelfManageTargetDestination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SelfManageTargetDestination.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:SelfManageTargetDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"SelfManageTargetDestinations"
        ~of_json:SelfManageTargetDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module HeterogeneousTargetDatabaseEngines =
  struct
    type nonrec t = HeterogeneousTargetDatabaseEngine.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:HeterogeneousTargetDatabaseEngine.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:HeterogeneousTargetDatabaseEngine.of_xml)
    let of_json j =
      list_of_json ~kind:"HeterogeneousTargetDatabaseEngines"
        ~of_json:HeterogeneousTargetDatabaseEngine.of_json j
    let to_json v = composed_to_json to_value v
  end
module HomogeneousTargetDatabaseEngines =
  struct
    type nonrec t = HomogeneousTargetDatabaseEngine.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:HomogeneousTargetDatabaseEngine.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:HomogeneousTargetDatabaseEngine.of_xml)
    let of_json j =
      list_of_json ~kind:"HomogeneousTargetDatabaseEngines"
        ~of_json:HomogeneousTargetDatabaseEngine.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetDatabaseEngines =
  struct
    type nonrec t = TargetDatabaseEngine.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TargetDatabaseEngine.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:TargetDatabaseEngine.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetDatabaseEngines"
        ~of_json:TargetDatabaseEngine.of_json j
    let to_json v = composed_to_json to_value v
  end
module AntipatternSeveritySummary =
  struct
    type nonrec t =
      {
      count: Integer.t option
        [@ocaml.doc "Contains the count of anti-patterns."];
      severity: Severity.t option
        [@ocaml.doc "Contains the severity of anti-patterns."]}
    let make ?count = fun ?severity -> fun () -> { count; severity }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Integer.to_value));
        ("severity", (Option.map x.severity ~f:Severity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let severity =
        (Option.map ~f:Severity.of_xml) (Xml.child xml_arg0 "severity") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      make ?severity ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let severity = field_map json__ "severity" Severity.of_json in
      let count = field_map json__ "count" Integer.of_json in
      make ?severity ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the summary of anti-patterns and their severity."]
module StrategySummary =
  struct
    type nonrec t =
      {
      count: Integer.t option
        [@ocaml.doc "The count of recommendations per strategy."];
      strategy: Strategy.t option
        [@ocaml.doc "The name of recommended strategy."]}
    let make ?count = fun ?strategy -> fun () -> { count; strategy }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Integer.to_value));
        ("strategy", (Option.map x.strategy ~f:Strategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let strategy =
        (Option.map ~f:Strategy.of_xml) (Xml.child xml_arg0 "strategy") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      make ?strategy ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let strategy = field_map json__ "strategy" Strategy.of_json in
      let count = field_map json__ "count" Integer.of_json in
      make ?strategy ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing the summary of the strategy recommendations."]
module TargetDestination =
  struct
    type nonrec t =
      | None_specified 
      | AWS_Elastic_BeanStalk 
      | AWS_Fargate 
      | Amazon_Elastic_Cloud_Compute__EC2_ 
      | Amazon_Elastic_Container_Service__ECS_ 
      | Amazon_Elastic_Kubernetes_Service__EKS_ 
      | Aurora_MySQL 
      | Aurora_PostgreSQL 
      | Amazon_Relational_Database_Service_on_MySQL 
      | Amazon_Relational_Database_Service_on_PostgreSQL 
      | Amazon_DocumentDB 
      | Amazon_DynamoDB 
      | Amazon_Relational_Database_Service 
      | Babelfish_for_Aurora_PostgreSQL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None_specified -> "None specified"
      | AWS_Elastic_BeanStalk -> "AWS Elastic BeanStalk"
      | AWS_Fargate -> "AWS Fargate"
      | Amazon_Elastic_Cloud_Compute__EC2_ ->
          "Amazon Elastic Cloud Compute (EC2)"
      | Amazon_Elastic_Container_Service__ECS_ ->
          "Amazon Elastic Container Service (ECS)"
      | Amazon_Elastic_Kubernetes_Service__EKS_ ->
          "Amazon Elastic Kubernetes Service (EKS)"
      | Aurora_MySQL -> "Aurora MySQL"
      | Aurora_PostgreSQL -> "Aurora PostgreSQL"
      | Amazon_Relational_Database_Service_on_MySQL ->
          "Amazon Relational Database Service on MySQL"
      | Amazon_Relational_Database_Service_on_PostgreSQL ->
          "Amazon Relational Database Service on PostgreSQL"
      | Amazon_DocumentDB -> "Amazon DocumentDB"
      | Amazon_DynamoDB -> "Amazon DynamoDB"
      | Amazon_Relational_Database_Service ->
          "Amazon Relational Database Service"
      | Babelfish_for_Aurora_PostgreSQL -> "Babelfish for Aurora PostgreSQL"
      | Non_static_id s -> s
    let of_string =
      function
      | "None specified" -> None_specified
      | "AWS Elastic BeanStalk" -> AWS_Elastic_BeanStalk
      | "AWS Fargate" -> AWS_Fargate
      | "Amazon Elastic Cloud Compute (EC2)" ->
          Amazon_Elastic_Cloud_Compute__EC2_
      | "Amazon Elastic Container Service (ECS)" ->
          Amazon_Elastic_Container_Service__ECS_
      | "Amazon Elastic Kubernetes Service (EKS)" ->
          Amazon_Elastic_Kubernetes_Service__EKS_
      | "Aurora MySQL" -> Aurora_MySQL
      | "Aurora PostgreSQL" -> Aurora_PostgreSQL
      | "Amazon Relational Database Service on MySQL" ->
          Amazon_Relational_Database_Service_on_MySQL
      | "Amazon Relational Database Service on PostgreSQL" ->
          Amazon_Relational_Database_Service_on_PostgreSQL
      | "Amazon DocumentDB" -> Amazon_DocumentDB
      | "Amazon DynamoDB" -> Amazon_DynamoDB
      | "Amazon Relational Database Service" ->
          Amazon_Relational_Database_Service
      | "Babelfish for Aurora PostgreSQL" -> Babelfish_for_Aurora_PostgreSQL
      | 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 TargetDestination" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetDestination" j)
    let to_json = simple_to_json to_value
  end
module TransformationTool =
  struct
    type nonrec t =
      {
      description: TranformationToolDescription.t option
        [@ocaml.doc "Description of the tool."];
      name: TransformationToolName.t option [@ocaml.doc "Name of the tool."];
      tranformationToolInstallationLink:
        TranformationToolInstallationLink.t option
        [@ocaml.doc "URL for installing the tool."]}
    let make ?description =
      fun ?name ->
        fun ?tranformationToolInstallationLink ->
          fun () -> { description; name; tranformationToolInstallationLink }
    let to_value x =
      structure_to_value
        [("description",
           (Option.map x.description ~f:TranformationToolDescription.to_value));
        ("name", (Option.map x.name ~f:TransformationToolName.to_value));
        ("tranformationToolInstallationLink",
          (Option.map x.tranformationToolInstallationLink
             ~f:TranformationToolInstallationLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tranformationToolInstallationLink =
        (Option.map ~f:TranformationToolInstallationLink.of_xml)
          (Xml.child xml_arg0 "tranformationToolInstallationLink") in
      let name =
        (Option.map ~f:TransformationToolName.of_xml)
          (Xml.child xml_arg0 "name") in
      let description =
        (Option.map ~f:TranformationToolDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      make ?tranformationToolInstallationLink ?name ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tranformationToolInstallationLink =
        field_map json__ "tranformationToolInstallationLink"
          TranformationToolInstallationLink.of_json in
      let name = field_map json__ "name" TransformationToolName.of_json in
      let description =
        field_map json__ "description" TranformationToolDescription.of_json in
      make ?tranformationToolInstallationLink ?name ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information of the transformation tool that can be used to migrate and modernize the application."]
module ServerErrorCategory =
  struct
    type nonrec t =
      | CONNECTIVITY_ERROR 
      | CREDENTIAL_ERROR 
      | PERMISSION_ERROR 
      | ARCHITECTURE_ERROR 
      | OTHER_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECTIVITY_ERROR -> "CONNECTIVITY_ERROR"
      | CREDENTIAL_ERROR -> "CREDENTIAL_ERROR"
      | PERMISSION_ERROR -> "PERMISSION_ERROR"
      | ARCHITECTURE_ERROR -> "ARCHITECTURE_ERROR"
      | OTHER_ERROR -> "OTHER_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECTIVITY_ERROR" -> CONNECTIVITY_ERROR
      | "CREDENTIAL_ERROR" -> CREDENTIAL_ERROR
      | "PERMISSION_ERROR" -> PERMISSION_ERROR
      | "ARCHITECTURE_ERROR" -> ARCHITECTURE_ERROR
      | "OTHER_ERROR" -> OTHER_ERROR
      | 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 ServerErrorCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServerErrorCategory" j)
    let to_json = simple_to_json to_value
  end
module NetworkInfoList =
  struct
    type nonrec t = NetworkInfo.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:NetworkInfo.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:NetworkInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkInfoList" ~of_json:NetworkInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module OSInfo =
  struct
    type nonrec t =
      {
      type_: OSType.t option
        [@ocaml.doc "Information about the type of operating system."];
      version: OSVersion.t option
        [@ocaml.doc "Information about the version of operating system."]}
    let make ?type_ = fun ?version -> fun () -> { type_; version }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:OSType.to_value));
        ("version", (Option.map x.version ~f:OSVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:OSVersion.of_xml) (Xml.child xml_arg0 "version") in
      let type_ = (Option.map ~f:OSType.of_xml) (Xml.child xml_arg0 "type") in
      make ?version ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" OSVersion.of_json in
      let type_ = field_map json__ "type" OSType.of_json in
      make ?version ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the operating system."]
module IPAddressBasedRemoteInfoList =
  struct
    type nonrec t = IPAddressBasedRemoteInfo.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:IPAddressBasedRemoteInfo.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:IPAddressBasedRemoteInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"IPAddressBasedRemoteInfoList"
        ~of_json:IPAddressBasedRemoteInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineInfoList =
  struct
    type nonrec t = PipelineInfo.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:PipelineInfo.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:PipelineInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineInfoList" ~of_json:PipelineInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module RemoteSourceCodeAnalysisServerInfo =
  struct
    type nonrec t =
      {
      remoteSourceCodeAnalysisServerConfigurationTimestamp: String_.t option
        [@ocaml.doc
          "The time when the remote source code server was configured."]}
    let make ?remoteSourceCodeAnalysisServerConfigurationTimestamp =
      fun () -> { remoteSourceCodeAnalysisServerConfigurationTimestamp }
    let to_value x =
      structure_to_value
        [("remoteSourceCodeAnalysisServerConfigurationTimestamp",
           (Option.map x.remoteSourceCodeAnalysisServerConfigurationTimestamp
              ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let remoteSourceCodeAnalysisServerConfigurationTimestamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0
             "remoteSourceCodeAnalysisServerConfigurationTimestamp") in
      make ?remoteSourceCodeAnalysisServerConfigurationTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let remoteSourceCodeAnalysisServerConfigurationTimestamp =
        field_map json__
          "remoteSourceCodeAnalysisServerConfigurationTimestamp"
          String_.of_json in
      make ?remoteSourceCodeAnalysisServerConfigurationTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the server configured for source code analysis."]
module VcenterBasedRemoteInfoList =
  struct
    type nonrec t = VcenterBasedRemoteInfo.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:VcenterBasedRemoteInfo.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:VcenterBasedRemoteInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"VcenterBasedRemoteInfoList"
        ~of_json:VcenterBasedRemoteInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module VersionControlInfoList =
  struct
    type nonrec t = VersionControlInfo.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:VersionControlInfo.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:VersionControlInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"VersionControlInfoList"
        ~of_json:VersionControlInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppUnitErrorCategory =
  struct
    type nonrec t =
      | CREDENTIAL_ERROR 
      | CONNECTIVITY_ERROR 
      | PERMISSION_ERROR 
      | UNSUPPORTED_ERROR 
      | OTHER_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREDENTIAL_ERROR -> "CREDENTIAL_ERROR"
      | CONNECTIVITY_ERROR -> "CONNECTIVITY_ERROR"
      | PERMISSION_ERROR -> "PERMISSION_ERROR"
      | UNSUPPORTED_ERROR -> "UNSUPPORTED_ERROR"
      | OTHER_ERROR -> "OTHER_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREDENTIAL_ERROR" -> CREDENTIAL_ERROR
      | "CONNECTIVITY_ERROR" -> CONNECTIVITY_ERROR
      | "PERMISSION_ERROR" -> PERMISSION_ERROR
      | "UNSUPPORTED_ERROR" -> UNSUPPORTED_ERROR
      | "OTHER_ERROR" -> OTHER_ERROR
      | 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 AppUnitErrorCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AppUnitErrorCategory" j)
    let to_json = simple_to_json to_value
  end
module Result_ =
  struct
    type nonrec t =
      {
      analysisStatus: AnalysisStatusUnion.t option
        [@ocaml.doc "The error in server analysis."];
      analysisType: AnalysisType.t option
        [@ocaml.doc "The error in server analysis."];
      antipatternReportResultList: AntipatternReportResultList.t option
        [@ocaml.doc "The error in server analysis."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc "The error in server analysis."]}
    let make ?analysisStatus =
      fun ?analysisType ->
        fun ?antipatternReportResultList ->
          fun ?statusMessage ->
            fun () ->
              {
                analysisStatus;
                analysisType;
                antipatternReportResultList;
                statusMessage
              }
    let to_value x =
      structure_to_value
        [("analysisStatus",
           (Option.map x.analysisStatus ~f:AnalysisStatusUnion.to_value));
        ("analysisType",
          (Option.map x.analysisType ~f:AnalysisType.to_value));
        ("antipatternReportResultList",
          (Option.map x.antipatternReportResultList
             ~f:AntipatternReportResultList.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let antipatternReportResultList =
        (Option.map ~f:AntipatternReportResultList.of_xml)
          (Xml.child xml_arg0 "antipatternReportResultList") in
      let analysisType =
        (Option.map ~f:AnalysisType.of_xml)
          (Xml.child xml_arg0 "analysisType") in
      let analysisStatus =
        (Option.map ~f:AnalysisStatusUnion.of_xml)
          (Xml.child xml_arg0 "analysisStatus") in
      make ?statusMessage ?antipatternReportResultList ?analysisType
        ?analysisStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "statusMessage" StatusMessage.of_json in
      let antipatternReportResultList =
        field_map json__ "antipatternReportResultList"
          AntipatternReportResultList.of_json in
      let analysisType = field_map json__ "analysisType" AnalysisType.of_json in
      let analysisStatus =
        field_map json__ "analysisStatus" AnalysisStatusUnion.of_json in
      make ?statusMessage ?antipatternReportResultList ?analysisType
        ?analysisStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The error in server analysis."]
module SourceCodeRepository =
  struct
    type nonrec t =
      {
      branch: String_.t option [@ocaml.doc "The branch of the source code."];
      projectName: String_.t option [@ocaml.doc "The name of the project."];
      repository: String_.t option
        [@ocaml.doc "The repository name for the source code."];
      versionControlType: String_.t option
        [@ocaml.doc "The type of repository to use for the source code."]}
    let make ?branch =
      fun ?projectName ->
        fun ?repository ->
          fun ?versionControlType ->
            fun () -> { branch; projectName; repository; versionControlType }
    let to_value x =
      structure_to_value
        [("branch", (Option.map x.branch ~f:String_.to_value));
        ("projectName", (Option.map x.projectName ~f:String_.to_value));
        ("repository", (Option.map x.repository ~f:String_.to_value));
        ("versionControlType",
          (Option.map x.versionControlType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionControlType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "versionControlType") in
      let repository =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "repository") in
      let projectName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "projectName") in
      let branch =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "branch") in
      make ?versionControlType ?repository ?projectName ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionControlType =
        field_map json__ "versionControlType" String_.of_json in
      let repository = field_map json__ "repository" String_.of_json in
      let projectName = field_map json__ "projectName" String_.of_json in
      let branch = field_map json__ "branch" String_.of_json in
      make ?versionControlType ?repository ?projectName ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing source code information that is linked to an application component."]
module AppType =
  struct
    type nonrec t =
      | DotNetFramework 
      | Java 
      | SQLServer 
      | IIS 
      | Oracle 
      | Other 
      | Tomcat 
      | JBoss 
      | Spring 
      | Mongo_DB 
      | DB2 
      | Maria_DB 
      | MySQL 
      | Sybase 
      | PostgreSQLServer 
      | Cassandra 
      | IBM_WebSphere 
      | Oracle_WebLogic 
      | Visual_Basic 
      | Unknown 
      | DotnetCore 
      | Dotnet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DotNetFramework -> "DotNetFramework"
      | Java -> "Java"
      | SQLServer -> "SQLServer"
      | IIS -> "IIS"
      | Oracle -> "Oracle"
      | Other -> "Other"
      | Tomcat -> "Tomcat"
      | JBoss -> "JBoss"
      | Spring -> "Spring"
      | Mongo_DB -> "Mongo DB"
      | DB2 -> "DB2"
      | Maria_DB -> "Maria DB"
      | MySQL -> "MySQL"
      | Sybase -> "Sybase"
      | PostgreSQLServer -> "PostgreSQLServer"
      | Cassandra -> "Cassandra"
      | IBM_WebSphere -> "IBM WebSphere"
      | Oracle_WebLogic -> "Oracle WebLogic"
      | Visual_Basic -> "Visual Basic"
      | Unknown -> "Unknown"
      | DotnetCore -> "DotnetCore"
      | Dotnet -> "Dotnet"
      | Non_static_id s -> s
    let of_string =
      function
      | "DotNetFramework" -> DotNetFramework
      | "Java" -> Java
      | "SQLServer" -> SQLServer
      | "IIS" -> IIS
      | "Oracle" -> Oracle
      | "Other" -> Other
      | "Tomcat" -> Tomcat
      | "JBoss" -> JBoss
      | "Spring" -> Spring
      | "Mongo DB" -> Mongo_DB
      | "DB2" -> DB2
      | "Maria DB" -> Maria_DB
      | "MySQL" -> MySQL
      | "Sybase" -> Sybase
      | "PostgreSQLServer" -> PostgreSQLServer
      | "Cassandra" -> Cassandra
      | "IBM WebSphere" -> IBM_WebSphere
      | "Oracle WebLogic" -> Oracle_WebLogic
      | "Visual Basic" -> Visual_Basic
      | "Unknown" -> Unknown
      | "DotnetCore" -> DotnetCore
      | "Dotnet" -> Dotnet
      | 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 AppType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AppType" j)
    let to_json = simple_to_json to_value
  end
module RunTimeAssessmentStatus =
  struct
    type nonrec t =
      | DataCollectionTaskToBeScheduled 
      | DataCollectionTaskScheduled 
      | DataCollectionTaskStarted 
      | DataCollectionTaskStopped 
      | DataCollectionTaskSuccess 
      | DataCollectionTaskFailed 
      | DataCollectionTaskPartialSuccess 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DataCollectionTaskToBeScheduled -> "dataCollectionTaskToBeScheduled"
      | DataCollectionTaskScheduled -> "dataCollectionTaskScheduled"
      | DataCollectionTaskStarted -> "dataCollectionTaskStarted"
      | DataCollectionTaskStopped -> "dataCollectionTaskStopped"
      | DataCollectionTaskSuccess -> "dataCollectionTaskSuccess"
      | DataCollectionTaskFailed -> "dataCollectionTaskFailed"
      | DataCollectionTaskPartialSuccess ->
          "dataCollectionTaskPartialSuccess"
      | Non_static_id s -> s
    let of_string =
      function
      | "dataCollectionTaskToBeScheduled" -> DataCollectionTaskToBeScheduled
      | "dataCollectionTaskScheduled" -> DataCollectionTaskScheduled
      | "dataCollectionTaskStarted" -> DataCollectionTaskStarted
      | "dataCollectionTaskStopped" -> DataCollectionTaskStopped
      | "dataCollectionTaskSuccess" -> DataCollectionTaskSuccess
      | "dataCollectionTaskFailed" -> DataCollectionTaskFailed
      | "dataCollectionTaskPartialSuccess" ->
          DataCollectionTaskPartialSuccess
      | 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 RunTimeAssessmentStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RunTimeAssessmentStatus" j)
    let to_json = simple_to_json to_value
  end
module ServerOsType =
  struct
    type nonrec t =
      | WindowsServer 
      | AmazonLinux 
      | EndOfSupportWindowsServer 
      | Redhat 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WindowsServer -> "WindowsServer"
      | AmazonLinux -> "AmazonLinux"
      | EndOfSupportWindowsServer -> "EndOfSupportWindowsServer"
      | Redhat -> "Redhat"
      | Other -> "Other"
      | Non_static_id s -> s
    let of_string =
      function
      | "WindowsServer" -> WindowsServer
      | "AmazonLinux" -> AmazonLinux
      | "EndOfSupportWindowsServer" -> EndOfSupportWindowsServer
      | "Redhat" -> Redhat
      | "Other" -> Other
      | 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 ServerOsType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServerOsType" j)
    let to_json = simple_to_json to_value
  end
module Location =
  struct
    type nonrec t = string
    let context_ = "Location"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"Location" j
    let to_json = simple_to_json to_value
  end
module ProjectName =
  struct
    type nonrec t = string
    let context_ = "ProjectName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"ProjectName" j
    let to_json = simple_to_json to_value
  end
module SourceVersion =
  struct
    type nonrec t = string
    let context_ = "SourceVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (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:"SourceVersion" j
    let to_json = simple_to_json to_value
  end
module VersionControl =
  struct
    type nonrec t =
      | GITHUB 
      | GITHUB_ENTERPRISE 
      | AZURE_DEVOPS_GIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GITHUB -> "GITHUB"
      | GITHUB_ENTERPRISE -> "GITHUB_ENTERPRISE"
      | AZURE_DEVOPS_GIT -> "AZURE_DEVOPS_GIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "GITHUB" -> GITHUB
      | "GITHUB_ENTERPRISE" -> GITHUB_ENTERPRISE
      | "AZURE_DEVOPS_GIT" -> AZURE_DEVOPS_GIT
      | 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 VersionControl" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VersionControl" j)
    let to_json = simple_to_json to_value
  end
module GroupName =
  struct
    type nonrec t =
      | ExternalId 
      | ExternalSourceType 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ExternalId -> "ExternalId"
      | ExternalSourceType -> "ExternalSourceType"
      | Non_static_id s -> s
    let of_string =
      function
      | "ExternalId" -> ExternalId
      | "ExternalSourceType" -> ExternalSourceType
      | 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 GroupName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GroupName" j)
    let to_json = simple_to_json to_value
  end
module AssessmentTargetValues =
  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:"AssessmentTargetValues" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Condition =
  struct
    type nonrec t =
      | EQUALS 
      | NOT_EQUALS 
      | CONTAINS 
      | NOT_CONTAINS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQUALS -> "EQUALS"
      | NOT_EQUALS -> "NOT_EQUALS"
      | CONTAINS -> "CONTAINS"
      | NOT_CONTAINS -> "NOT_CONTAINS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQUALS" -> EQUALS
      | "NOT_EQUALS" -> NOT_EQUALS
      | "CONTAINS" -> CONTAINS
      | "NOT_CONTAINS" -> NOT_CONTAINS
      | 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 Condition" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Condition" j)
    let to_json = simple_to_json to_value
  end
module AwsManagedResources =
  struct
    type nonrec t =
      {
      targetDestination: AwsManagedTargetDestinations.t
        [@ocaml.doc
          "The choice of application destination that you specify."]}
    let context_ = "AwsManagedResources"
    let make ~targetDestination = fun () -> { targetDestination }
    let to_value x =
      structure_to_value
        [("targetDestination",
           (Some (AwsManagedTargetDestinations.to_value x.targetDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDestination =
        AwsManagedTargetDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetDestination") in
      make ~targetDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDestination =
        field_map_exn json__ "targetDestination"
          AwsManagedTargetDestinations.of_json in
      make ~targetDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing the choice of application destination that you specify."]
module NoManagementPreference =
  struct
    type nonrec t =
      {
      targetDestination: NoPreferenceTargetDestinations.t
        [@ocaml.doc
          "The choice of application destination that you specify."]}
    let context_ = "NoManagementPreference"
    let make ~targetDestination = fun () -> { targetDestination }
    let to_value x =
      structure_to_value
        [("targetDestination",
           (Some
              (NoPreferenceTargetDestinations.to_value x.targetDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDestination =
        NoPreferenceTargetDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetDestination") in
      make ~targetDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDestination =
        field_map_exn json__ "targetDestination"
          NoPreferenceTargetDestinations.of_json in
      make ~targetDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing the choice of application destination that you specify."]
module SelfManageResources =
  struct
    type nonrec t =
      {
      targetDestination: SelfManageTargetDestinations.t
        [@ocaml.doc "Self-managed resources target destination."]}
    let context_ = "SelfManageResources"
    let make ~targetDestination = fun () -> { targetDestination }
    let to_value x =
      structure_to_value
        [("targetDestination",
           (Some (SelfManageTargetDestinations.to_value x.targetDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDestination =
        SelfManageTargetDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetDestination") in
      make ~targetDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDestination =
        field_map_exn json__ "targetDestination"
          SelfManageTargetDestinations.of_json in
      make ~targetDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Self-managed resources."]
module Heterogeneous =
  struct
    type nonrec t =
      {
      targetDatabaseEngine: HeterogeneousTargetDatabaseEngines.t
        [@ocaml.doc
          "The target database engine for heterogeneous database migration preference."]}
    let context_ = "Heterogeneous"
    let make ~targetDatabaseEngine = fun () -> { targetDatabaseEngine }
    let to_value x =
      structure_to_value
        [("targetDatabaseEngine",
           (Some
              (HeterogeneousTargetDatabaseEngines.to_value
                 x.targetDatabaseEngine)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDatabaseEngine =
        HeterogeneousTargetDatabaseEngines.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetDatabaseEngine") in
      make ~targetDatabaseEngine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDatabaseEngine =
        field_map_exn json__ "targetDatabaseEngine"
          HeterogeneousTargetDatabaseEngines.of_json in
      make ~targetDatabaseEngine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object containing details about heterogeneous database preferences."]
module Homogeneous =
  struct
    type nonrec t =
      {
      targetDatabaseEngine: HomogeneousTargetDatabaseEngines.t option
        [@ocaml.doc
          "The target database engine for homogeneous database migration preferences."]}
    let make ?targetDatabaseEngine = fun () -> { targetDatabaseEngine }
    let to_value x =
      structure_to_value
        [("targetDatabaseEngine",
           (Option.map x.targetDatabaseEngine
              ~f:HomogeneousTargetDatabaseEngines.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDatabaseEngine =
        (Option.map ~f:HomogeneousTargetDatabaseEngines.of_xml)
          (Xml.child xml_arg0 "targetDatabaseEngine") in
      make ?targetDatabaseEngine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDatabaseEngine =
        field_map json__ "targetDatabaseEngine"
          HomogeneousTargetDatabaseEngines.of_json in
      make ?targetDatabaseEngine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object containing details about homogeneous database preferences."]
module NoDatabaseMigrationPreference =
  struct
    type nonrec t =
      {
      targetDatabaseEngine: TargetDatabaseEngines.t
        [@ocaml.doc
          "The target database engine for database migration preference that you specify."]}
    let context_ = "NoDatabaseMigrationPreference"
    let make ~targetDatabaseEngine = fun () -> { targetDatabaseEngine }
    let to_value x =
      structure_to_value
        [("targetDatabaseEngine",
           (Some (TargetDatabaseEngines.to_value x.targetDatabaseEngine)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDatabaseEngine =
        TargetDatabaseEngines.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetDatabaseEngine") in
      make ~targetDatabaseEngine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDatabaseEngine =
        field_map_exn json__ "targetDatabaseEngine"
          TargetDatabaseEngines.of_json in
      make ~targetDatabaseEngine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object containing details about database migration preferences, when you have no particular preference."]
module BusinessGoalsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (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 BusinessGoalsInteger" 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 ListAntipatternSeveritySummary =
  struct
    type nonrec t = AntipatternSeveritySummary.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:AntipatternSeveritySummary.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:AntipatternSeveritySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListAntipatternSeveritySummary"
        ~of_json:AntipatternSeveritySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListStrategySummary =
  struct
    type nonrec t = StrategySummary.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:StrategySummary.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:StrategySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListStrategySummary"
        ~of_json:StrategySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendationSet =
  struct
    type nonrec t =
      {
      strategy: Strategy.t option [@ocaml.doc "The recommended strategy."];
      targetDestination: TargetDestination.t option
        [@ocaml.doc "The recommended target destination."];
      transformationTool: TransformationTool.t option
        [@ocaml.doc "The target destination for the recommendation set."]}
    let make ?strategy =
      fun ?targetDestination ->
        fun ?transformationTool ->
          fun () -> { strategy; targetDestination; transformationTool }
    let to_value x =
      structure_to_value
        [("strategy", (Option.map x.strategy ~f:Strategy.to_value));
        ("targetDestination",
          (Option.map x.targetDestination ~f:TargetDestination.to_value));
        ("transformationTool",
          (Option.map x.transformationTool ~f:TransformationTool.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformationTool =
        (Option.map ~f:TransformationTool.of_xml)
          (Xml.child xml_arg0 "transformationTool") in
      let targetDestination =
        (Option.map ~f:TargetDestination.of_xml)
          (Xml.child xml_arg0 "targetDestination") in
      let strategy =
        (Option.map ~f:Strategy.of_xml) (Xml.child xml_arg0 "strategy") in
      make ?transformationTool ?targetDestination ?strategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformationTool =
        field_map json__ "transformationTool" TransformationTool.of_json in
      let targetDestination =
        field_map json__ "targetDestination" TargetDestination.of_json in
      let strategy = field_map json__ "strategy" Strategy.of_json in
      make ?transformationTool ?targetDestination ?strategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a recommendation set."]
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:44) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9a-b]+")));
        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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceName =
  struct
    type nonrec t = string
    let context_ = "ResourceName"
    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:"ResourceName" j
    let to_json = simple_to_json to_value
  end
module ServerError =
  struct
    type nonrec t =
      {
      serverErrorCategory: ServerErrorCategory.t option
        [@ocaml.doc "The error category of server analysis."]}
    let make ?serverErrorCategory = fun () -> { serverErrorCategory }
    let to_value x =
      structure_to_value
        [("serverErrorCategory",
           (Option.map x.serverErrorCategory ~f:ServerErrorCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverErrorCategory =
        (Option.map ~f:ServerErrorCategory.of_xml)
          (Xml.child xml_arg0 "serverErrorCategory") in
      make ?serverErrorCategory ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverErrorCategory =
        field_map json__ "serverErrorCategory" ServerErrorCategory.of_json in
      make ?serverErrorCategory ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The error in server analysis."]
module SystemInfo =
  struct
    type nonrec t =
      {
      cpuArchitecture: String_.t option
        [@ocaml.doc "CPU architecture type for the server."];
      fileSystemType: String_.t option
        [@ocaml.doc "File system type for the server."];
      networkInfoList: NetworkInfoList.t option
        [@ocaml.doc "Networking information related to a server."];
      osInfo: OSInfo.t option
        [@ocaml.doc "Operating system corresponding to a server."]}
    let make ?cpuArchitecture =
      fun ?fileSystemType ->
        fun ?networkInfoList ->
          fun ?osInfo ->
            fun () ->
              { cpuArchitecture; fileSystemType; networkInfoList; osInfo }
    let to_value x =
      structure_to_value
        [("cpuArchitecture",
           (Option.map x.cpuArchitecture ~f:String_.to_value));
        ("fileSystemType", (Option.map x.fileSystemType ~f:String_.to_value));
        ("networkInfoList",
          (Option.map x.networkInfoList ~f:NetworkInfoList.to_value));
        ("osInfo", (Option.map x.osInfo ~f:OSInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let osInfo =
        (Option.map ~f:OSInfo.of_xml) (Xml.child xml_arg0 "osInfo") in
      let networkInfoList =
        (Option.map ~f:NetworkInfoList.of_xml)
          (Xml.child xml_arg0 "networkInfoList") in
      let fileSystemType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "fileSystemType") in
      let cpuArchitecture =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cpuArchitecture") in
      make ?osInfo ?networkInfoList ?fileSystemType ?cpuArchitecture ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let osInfo = field_map json__ "osInfo" OSInfo.of_json in
      let networkInfoList =
        field_map json__ "networkInfoList" NetworkInfoList.of_json in
      let fileSystemType = field_map json__ "fileSystemType" String_.of_json in
      let cpuArchitecture =
        field_map json__ "cpuArchitecture" String_.of_json in
      make ?osInfo ?networkInfoList ?fileSystemType ?cpuArchitecture ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the server that hosts application components."]
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 ImportFileTaskStatus =
  struct
    type nonrec t =
      | ImportInProgress 
      | ImportFailed 
      | ImportPartialSuccess 
      | ImportSuccess 
      | DeleteInProgress 
      | DeleteFailed 
      | DeletePartialSuccess 
      | DeleteSuccess 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ImportInProgress -> "ImportInProgress"
      | ImportFailed -> "ImportFailed"
      | ImportPartialSuccess -> "ImportPartialSuccess"
      | ImportSuccess -> "ImportSuccess"
      | DeleteInProgress -> "DeleteInProgress"
      | DeleteFailed -> "DeleteFailed"
      | DeletePartialSuccess -> "DeletePartialSuccess"
      | DeleteSuccess -> "DeleteSuccess"
      | Non_static_id s -> s
    let of_string =
      function
      | "ImportInProgress" -> ImportInProgress
      | "ImportFailed" -> ImportFailed
      | "ImportPartialSuccess" -> ImportPartialSuccess
      | "ImportSuccess" -> ImportSuccess
      | "DeleteInProgress" -> DeleteInProgress
      | "DeleteFailed" -> DeleteFailed
      | "DeletePartialSuccess" -> DeletePartialSuccess
      | "DeleteSuccess" -> DeleteSuccess
      | 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 ImportFileTaskStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImportFileTaskStatus" j)
    let to_json = simple_to_json to_value
  end
module ImportS3Bucket =
  struct
    type nonrec t = string
    let context_ = "importS3Bucket"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-z]+[0-9a-z\\.\\-]*[0-9a-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:"importS3Bucket" j
    let to_json = simple_to_json to_value
  end
module ImportS3Key =
  struct
    type nonrec t = string
    let context_ = "importS3Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"importS3Key" j
    let to_json = simple_to_json to_value
  end
module CollectorHealth =
  struct
    type nonrec t =
      | COLLECTOR_HEALTHY 
      | COLLECTOR_UNHEALTHY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COLLECTOR_HEALTHY -> "COLLECTOR_HEALTHY"
      | COLLECTOR_UNHEALTHY -> "COLLECTOR_UNHEALTHY"
      | Non_static_id s -> s
    let of_string =
      function
      | "COLLECTOR_HEALTHY" -> COLLECTOR_HEALTHY
      | "COLLECTOR_UNHEALTHY" -> COLLECTOR_UNHEALTHY
      | 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 CollectorHealth" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CollectorHealth" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationSummary =
  struct
    type nonrec t =
      {
      ipAddressBasedRemoteInfoList: IPAddressBasedRemoteInfoList.t option
        [@ocaml.doc "IP address based configurations."];
      pipelineInfoList: PipelineInfoList.t option
        [@ocaml.doc "The list of pipeline info configurations."];
      remoteSourceCodeAnalysisServerInfo:
        RemoteSourceCodeAnalysisServerInfo.t option
        [@ocaml.doc
          "Info about the remote server source code configuration."];
      vcenterBasedRemoteInfoList: VcenterBasedRemoteInfoList.t option
        [@ocaml.doc "The list of vCenter configurations."];
      versionControlInfoList: VersionControlInfoList.t option
        [@ocaml.doc "The list of the version control configurations."]}
    let make ?ipAddressBasedRemoteInfoList =
      fun ?pipelineInfoList ->
        fun ?remoteSourceCodeAnalysisServerInfo ->
          fun ?vcenterBasedRemoteInfoList ->
            fun ?versionControlInfoList ->
              fun () ->
                {
                  ipAddressBasedRemoteInfoList;
                  pipelineInfoList;
                  remoteSourceCodeAnalysisServerInfo;
                  vcenterBasedRemoteInfoList;
                  versionControlInfoList
                }
    let to_value x =
      structure_to_value
        [("ipAddressBasedRemoteInfoList",
           (Option.map x.ipAddressBasedRemoteInfoList
              ~f:IPAddressBasedRemoteInfoList.to_value));
        ("pipelineInfoList",
          (Option.map x.pipelineInfoList ~f:PipelineInfoList.to_value));
        ("remoteSourceCodeAnalysisServerInfo",
          (Option.map x.remoteSourceCodeAnalysisServerInfo
             ~f:RemoteSourceCodeAnalysisServerInfo.to_value));
        ("vcenterBasedRemoteInfoList",
          (Option.map x.vcenterBasedRemoteInfoList
             ~f:VcenterBasedRemoteInfoList.to_value));
        ("versionControlInfoList",
          (Option.map x.versionControlInfoList
             ~f:VersionControlInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionControlInfoList =
        (Option.map ~f:VersionControlInfoList.of_xml)
          (Xml.child xml_arg0 "versionControlInfoList") in
      let vcenterBasedRemoteInfoList =
        (Option.map ~f:VcenterBasedRemoteInfoList.of_xml)
          (Xml.child xml_arg0 "vcenterBasedRemoteInfoList") in
      let remoteSourceCodeAnalysisServerInfo =
        (Option.map ~f:RemoteSourceCodeAnalysisServerInfo.of_xml)
          (Xml.child xml_arg0 "remoteSourceCodeAnalysisServerInfo") in
      let pipelineInfoList =
        (Option.map ~f:PipelineInfoList.of_xml)
          (Xml.child xml_arg0 "pipelineInfoList") in
      let ipAddressBasedRemoteInfoList =
        (Option.map ~f:IPAddressBasedRemoteInfoList.of_xml)
          (Xml.child xml_arg0 "ipAddressBasedRemoteInfoList") in
      make ?versionControlInfoList ?vcenterBasedRemoteInfoList
        ?remoteSourceCodeAnalysisServerInfo ?pipelineInfoList
        ?ipAddressBasedRemoteInfoList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionControlInfoList =
        field_map json__ "versionControlInfoList"
          VersionControlInfoList.of_json in
      let vcenterBasedRemoteInfoList =
        field_map json__ "vcenterBasedRemoteInfoList"
          VcenterBasedRemoteInfoList.of_json in
      let remoteSourceCodeAnalysisServerInfo =
        field_map json__ "remoteSourceCodeAnalysisServerInfo"
          RemoteSourceCodeAnalysisServerInfo.of_json in
      let pipelineInfoList =
        field_map json__ "pipelineInfoList" PipelineInfoList.of_json in
      let ipAddressBasedRemoteInfoList =
        field_map json__ "ipAddressBasedRemoteInfoList"
          IPAddressBasedRemoteInfoList.of_json in
      make ?versionControlInfoList ?vcenterBasedRemoteInfoList
        ?remoteSourceCodeAnalysisServerInfo ?pipelineInfoList
        ?ipAddressBasedRemoteInfoList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of the collector configuration."]
module AppUnitError =
  struct
    type nonrec t =
      {
      appUnitErrorCategory: AppUnitErrorCategory.t option
        [@ocaml.doc "The category of the error."]}
    let make ?appUnitErrorCategory = fun () -> { appUnitErrorCategory }
    let to_value x =
      structure_to_value
        [("appUnitErrorCategory",
           (Option.map x.appUnitErrorCategory
              ~f:AppUnitErrorCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appUnitErrorCategory =
        (Option.map ~f:AppUnitErrorCategory.of_xml)
          (Xml.child xml_arg0 "appUnitErrorCategory") in
      make ?appUnitErrorCategory ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appUnitErrorCategory =
        field_map json__ "appUnitErrorCategory" AppUnitErrorCategory.of_json in
      make ?appUnitErrorCategory ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error in the analysis of the application unit."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module DatabaseConfigDetail =
  struct
    type nonrec t =
      {
      secretName: String_.t option
        [@ocaml.doc
          "AWS Secrets Manager key that holds the credentials that you use to connect to a database."]}
    let make ?secretName = fun () -> { secretName }
    let to_value x =
      structure_to_value
        [("secretName", (Option.map x.secretName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "secretName") in
      make ?secretName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretName = field_map json__ "secretName" String_.of_json in
      make ?secretName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration information used for assessing databases."]
module InclusionStatus =
  struct
    type nonrec t =
      | ExcludeFromAssessment 
      | IncludeInAssessment 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ExcludeFromAssessment -> "excludeFromAssessment"
      | IncludeInAssessment -> "includeInAssessment"
      | Non_static_id s -> s
    let of_string =
      function
      | "excludeFromAssessment" -> ExcludeFromAssessment
      | "includeInAssessment" -> IncludeInAssessment
      | 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 InclusionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InclusionStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceSubType =
  struct
    type nonrec t =
      | Database 
      | Process 
      | DatabaseProcess 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Database -> "Database"
      | Process -> "Process"
      | DatabaseProcess -> "DatabaseProcess"
      | Non_static_id s -> s
    let of_string =
      function
      | "Database" -> Database
      | "Process" -> Process
      | "DatabaseProcess" -> DatabaseProcess
      | 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 ResourceSubType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceSubType" j)
    let to_json = simple_to_json to_value
  end
module ResultList =
  struct
    type nonrec t = Result_.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:Result_.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:Result_.of_xml)
    let of_json j =
      list_of_json ~kind:"ResultList" ~of_json:Result_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServerId =
  struct
    type nonrec t = string
    let context_ = "ServerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:27) >>=
                  (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:"ServerId" j
    let to_json = simple_to_json to_value
  end
module SourceCodeRepositories =
  struct
    type nonrec t = SourceCodeRepository.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:SourceCodeRepository.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:SourceCodeRepository.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceCodeRepositories"
        ~of_json:SourceCodeRepository.of_json j
    let to_json v = composed_to_json to_value v
  end
module StrategyRecommendation =
  struct
    type nonrec t =
      | Recommended 
      | ViableOption 
      | NotRecommended 
      | Potential 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Recommended -> "recommended"
      | ViableOption -> "viableOption"
      | NotRecommended -> "notRecommended"
      | Potential -> "potential"
      | Non_static_id s -> s
    let of_string =
      function
      | "recommended" -> Recommended
      | "viableOption" -> ViableOption
      | "notRecommended" -> NotRecommended
      | "potential" -> Potential
      | 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 StrategyRecommendation" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StrategyRecommendation" j)
    let to_json = simple_to_json to_value
  end
module ApplicationComponentStatusSummary =
  struct
    type nonrec t =
      {
      count: Integer.t option
        [@ocaml.doc
          "The number of application components successfully analyzed, partially successful or failed analysis."];
      srcCodeOrDbAnalysisStatus: SrcCodeOrDbAnalysisStatus.t option
        [@ocaml.doc "The status of database analysis."]}
    let make ?count =
      fun ?srcCodeOrDbAnalysisStatus ->
        fun () -> { count; srcCodeOrDbAnalysisStatus }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Integer.to_value));
        ("srcCodeOrDbAnalysisStatus",
          (Option.map x.srcCodeOrDbAnalysisStatus
             ~f:SrcCodeOrDbAnalysisStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let srcCodeOrDbAnalysisStatus =
        (Option.map ~f:SrcCodeOrDbAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "srcCodeOrDbAnalysisStatus") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      make ?srcCodeOrDbAnalysisStatus ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let srcCodeOrDbAnalysisStatus =
        field_map json__ "srcCodeOrDbAnalysisStatus"
          SrcCodeOrDbAnalysisStatus.of_json in
      let count = field_map json__ "count" Integer.of_json in
      make ?srcCodeOrDbAnalysisStatus ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of the analysis status of the application component."]
module ApplicationComponentSummary =
  struct
    type nonrec t =
      {
      appType: AppType.t option
        [@ocaml.doc "Contains the name of application types."];
      count: Integer.t option
        [@ocaml.doc "Contains the count of application type."]}
    let make ?appType = fun ?count -> fun () -> { appType; count }
    let to_value x =
      structure_to_value
        [("appType", (Option.map x.appType ~f:AppType.to_value));
        ("count", (Option.map x.count ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      let appType =
        (Option.map ~f:AppType.of_xml) (Xml.child xml_arg0 "appType") in
      make ?count ?appType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "count" Integer.of_json in
      let appType = field_map json__ "appType" AppType.of_json in
      make ?count ?appType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the summary of application components."]
module ServerStatusSummary =
  struct
    type nonrec t =
      {
      count: Integer.t option
        [@ocaml.doc
          "The number of servers successfully analyzed, partially successful or failed analysis."];
      runTimeAssessmentStatus: RunTimeAssessmentStatus.t option
        [@ocaml.doc "The status of the run time."]}
    let make ?count =
      fun ?runTimeAssessmentStatus ->
        fun () -> { count; runTimeAssessmentStatus }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Integer.to_value));
        ("runTimeAssessmentStatus",
          (Option.map x.runTimeAssessmentStatus
             ~f:RunTimeAssessmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let runTimeAssessmentStatus =
        (Option.map ~f:RunTimeAssessmentStatus.of_xml)
          (Xml.child xml_arg0 "runTimeAssessmentStatus") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      make ?runTimeAssessmentStatus ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let runTimeAssessmentStatus =
        field_map json__ "runTimeAssessmentStatus"
          RunTimeAssessmentStatus.of_json in
      let count = field_map json__ "count" Integer.of_json in
      make ?runTimeAssessmentStatus ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The status summary of the server analysis."]
module ServerSummary =
  struct
    type nonrec t =
      {
      serverOsType: ServerOsType.t option
        [@ocaml.doc "Type of operating system for the servers."];
      count: Integer.t option [@ocaml.doc "Number of servers."]}
    let make ?serverOsType = fun ?count -> fun () -> { serverOsType; count }
    let to_value x =
      structure_to_value
        [("ServerOsType",
           (Option.map x.serverOsType ~f:ServerOsType.to_value));
        ("count", (Option.map x.count ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      let serverOsType =
        (Option.map ~f:ServerOsType.of_xml)
          (Xml.child xml_arg0 "ServerOsType") in
      make ?count ?serverOsType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "count" Integer.of_json in
      let serverOsType = field_map json__ "ServerOsType" ServerOsType.of_json in
      make ?count ?serverOsType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing details about the servers imported by Application Discovery Service"]
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 SourceCode =
  struct
    type nonrec t =
      {
      location: Location.t option
        [@ocaml.doc "The repository name for the source code."];
      projectName: ProjectName.t option
        [@ocaml.doc "The name of the project."];
      sourceVersion: SourceVersion.t option
        [@ocaml.doc "The branch of the source code."];
      versionControl: VersionControl.t option
        [@ocaml.doc "The type of repository to use for the source code."]}
    let make ?location =
      fun ?projectName ->
        fun ?sourceVersion ->
          fun ?versionControl ->
            fun () ->
              { location; projectName; sourceVersion; versionControl }
    let to_value x =
      structure_to_value
        [("location", (Option.map x.location ~f:Location.to_value));
        ("projectName", (Option.map x.projectName ~f:ProjectName.to_value));
        ("sourceVersion",
          (Option.map x.sourceVersion ~f:SourceVersion.to_value));
        ("versionControl",
          (Option.map x.versionControl ~f:VersionControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionControl =
        (Option.map ~f:VersionControl.of_xml)
          (Xml.child xml_arg0 "versionControl") in
      let sourceVersion =
        (Option.map ~f:SourceVersion.of_xml)
          (Xml.child xml_arg0 "sourceVersion") in
      let projectName =
        (Option.map ~f:ProjectName.of_xml) (Xml.child xml_arg0 "projectName") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      make ?versionControl ?sourceVersion ?projectName ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionControl =
        field_map json__ "versionControl" VersionControl.of_json in
      let sourceVersion =
        field_map json__ "sourceVersion" SourceVersion.of_json in
      let projectName = field_map json__ "projectName" ProjectName.of_json in
      let location = field_map json__ "location" Location.of_json in
      make ?versionControl ?sourceVersion ?projectName ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing source code information that is linked to an application component."]
module Group =
  struct
    type nonrec t =
      {
      name: GroupName.t option
        [@ocaml.doc "The key of the specific import group."];
      value: String_.t option
        [@ocaml.doc "The value of the specific import group."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:GroupName.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 name = (Option.map ~f:GroupName.of_xml) (Xml.child xml_arg0 "name") in
      make ?value ?name ()
    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 name = field_map json__ "name" GroupName.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object containing information about distinct imports or groups for Strategy Recommendations."]
module AssessmentTarget =
  struct
    type nonrec t =
      {
      condition: Condition.t [@ocaml.doc "Condition of an assessment."];
      name: String_.t [@ocaml.doc "Name of an assessment."];
      values: AssessmentTargetValues.t
        [@ocaml.doc "Values of an assessment."]}
    let context_ = "AssessmentTarget"
    let make ~condition =
      fun ~name -> fun ~values -> fun () -> { condition; name; values }
    let to_value x =
      structure_to_value
        [("condition", (Some (Condition.to_value x.condition)));
        ("name", (Some (String_.to_value x.name)));
        ("values", (Some (AssessmentTargetValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        AssessmentTargetValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let condition =
        Condition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "condition") in
      make ~values ~name ~condition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "values" AssessmentTargetValues.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      let condition = field_map_exn json__ "condition" Condition.of_json in
      make ~values ~name ~condition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines the criteria of assessment."]
module ManagementPreference =
  struct
    type nonrec t =
      {
      awsManagedResources: AwsManagedResources.t option
        [@ocaml.doc
          "Indicates interest in solutions that are managed by AWS."];
      noPreference: NoManagementPreference.t option
        [@ocaml.doc "No specific preference."];
      selfManageResources: SelfManageResources.t option
        [@ocaml.doc
          "Indicates interest in managing your own resources on AWS."]}
    let make ?awsManagedResources =
      fun ?noPreference ->
        fun ?selfManageResources ->
          fun () ->
            { awsManagedResources; noPreference; selfManageResources }
    let to_value x =
      structure_to_value
        [("awsManagedResources",
           (Option.map x.awsManagedResources ~f:AwsManagedResources.to_value));
        ("noPreference",
          (Option.map x.noPreference ~f:NoManagementPreference.to_value));
        ("selfManageResources",
          (Option.map x.selfManageResources ~f:SelfManageResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfManageResources =
        (Option.map ~f:SelfManageResources.of_xml)
          (Xml.child xml_arg0 "selfManageResources") in
      let noPreference =
        (Option.map ~f:NoManagementPreference.of_xml)
          (Xml.child xml_arg0 "noPreference") in
      let awsManagedResources =
        (Option.map ~f:AwsManagedResources.of_xml)
          (Xml.child xml_arg0 "awsManagedResources") in
      make ?selfManageResources ?noPreference ?awsManagedResources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfManageResources =
        field_map json__ "selfManageResources" SelfManageResources.of_json in
      let noPreference =
        field_map json__ "noPreference" NoManagementPreference.of_json in
      let awsManagedResources =
        field_map json__ "awsManagedResources" AwsManagedResources.of_json in
      make ?selfManageResources ?noPreference ?awsManagedResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Preferences for migrating an application to AWS."]
module DatabaseManagementPreference =
  struct
    type nonrec t =
      | AWS_managed 
      | Self_manage 
      | No_preference 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_managed -> "AWS-managed"
      | Self_manage -> "Self-manage"
      | No_preference -> "No preference"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS-managed" -> AWS_managed
      | "Self-manage" -> Self_manage
      | "No preference" -> No_preference
      | 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 DatabaseManagementPreference"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DatabaseManagementPreference" j)
    let to_json = simple_to_json to_value
  end
module DatabaseMigrationPreference =
  struct
    type nonrec t =
      {
      heterogeneous: Heterogeneous.t option
        [@ocaml.doc
          "Indicates whether you are interested in moving from one type of database to another. For example, from SQL Server to Amazon Aurora MySQL-Compatible Edition."];
      homogeneous: Homogeneous.t option
        [@ocaml.doc
          "Indicates whether you are interested in moving to the same type of database into AWS. For example, from SQL Server in your environment to SQL Server on AWS."];
      noPreference: NoDatabaseMigrationPreference.t option
        [@ocaml.doc
          "Indicated that you do not prefer heterogeneous or homogeneous."]}
    let make ?heterogeneous =
      fun ?homogeneous ->
        fun ?noPreference ->
          fun () -> { heterogeneous; homogeneous; noPreference }
    let to_value x =
      structure_to_value
        [("heterogeneous",
           (Option.map x.heterogeneous ~f:Heterogeneous.to_value));
        ("homogeneous", (Option.map x.homogeneous ~f:Homogeneous.to_value));
        ("noPreference",
          (Option.map x.noPreference
             ~f:NoDatabaseMigrationPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noPreference =
        (Option.map ~f:NoDatabaseMigrationPreference.of_xml)
          (Xml.child xml_arg0 "noPreference") in
      let homogeneous =
        (Option.map ~f:Homogeneous.of_xml) (Xml.child xml_arg0 "homogeneous") in
      let heterogeneous =
        (Option.map ~f:Heterogeneous.of_xml)
          (Xml.child xml_arg0 "heterogeneous") in
      make ?noPreference ?homogeneous ?heterogeneous ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noPreference =
        field_map json__ "noPreference" NoDatabaseMigrationPreference.of_json in
      let homogeneous = field_map json__ "homogeneous" Homogeneous.of_json in
      let heterogeneous =
        field_map json__ "heterogeneous" Heterogeneous.of_json in
      make ?noPreference ?homogeneous ?heterogeneous ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Preferences for migrating a database to AWS."]
module BusinessGoals =
  struct
    type nonrec t =
      {
      licenseCostReduction: BusinessGoalsInteger.t option
        [@ocaml.doc "Business goal to reduce license costs."];
      modernizeInfrastructureWithCloudNativeTechnologies:
        BusinessGoalsInteger.t option
        [@ocaml.doc
          "Business goal to modernize infrastructure by moving to cloud native technologies."];
      reduceOperationalOverheadWithManagedServices:
        BusinessGoalsInteger.t option
        [@ocaml.doc
          "Business goal to reduce the operational overhead on the team by moving into managed services."];
      speedOfMigration: BusinessGoalsInteger.t option
        [@ocaml.doc "Business goal to achieve migration at a fast pace."]}
    let make ?licenseCostReduction =
      fun ?modernizeInfrastructureWithCloudNativeTechnologies ->
        fun ?reduceOperationalOverheadWithManagedServices ->
          fun ?speedOfMigration ->
            fun () ->
              {
                licenseCostReduction;
                modernizeInfrastructureWithCloudNativeTechnologies;
                reduceOperationalOverheadWithManagedServices;
                speedOfMigration
              }
    let to_value x =
      structure_to_value
        [("licenseCostReduction",
           (Option.map x.licenseCostReduction
              ~f:BusinessGoalsInteger.to_value));
        ("modernizeInfrastructureWithCloudNativeTechnologies",
          (Option.map x.modernizeInfrastructureWithCloudNativeTechnologies
             ~f:BusinessGoalsInteger.to_value));
        ("reduceOperationalOverheadWithManagedServices",
          (Option.map x.reduceOperationalOverheadWithManagedServices
             ~f:BusinessGoalsInteger.to_value));
        ("speedOfMigration",
          (Option.map x.speedOfMigration ~f:BusinessGoalsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speedOfMigration =
        (Option.map ~f:BusinessGoalsInteger.of_xml)
          (Xml.child xml_arg0 "speedOfMigration") in
      let reduceOperationalOverheadWithManagedServices =
        (Option.map ~f:BusinessGoalsInteger.of_xml)
          (Xml.child xml_arg0 "reduceOperationalOverheadWithManagedServices") in
      let modernizeInfrastructureWithCloudNativeTechnologies =
        (Option.map ~f:BusinessGoalsInteger.of_xml)
          (Xml.child xml_arg0
             "modernizeInfrastructureWithCloudNativeTechnologies") in
      let licenseCostReduction =
        (Option.map ~f:BusinessGoalsInteger.of_xml)
          (Xml.child xml_arg0 "licenseCostReduction") in
      make ?speedOfMigration ?reduceOperationalOverheadWithManagedServices
        ?modernizeInfrastructureWithCloudNativeTechnologies
        ?licenseCostReduction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speedOfMigration =
        field_map json__ "speedOfMigration" BusinessGoalsInteger.of_json in
      let reduceOperationalOverheadWithManagedServices =
        field_map json__ "reduceOperationalOverheadWithManagedServices"
          BusinessGoalsInteger.of_json in
      let modernizeInfrastructureWithCloudNativeTechnologies =
        field_map json__ "modernizeInfrastructureWithCloudNativeTechnologies"
          BusinessGoalsInteger.of_json in
      let licenseCostReduction =
        field_map json__ "licenseCostReduction" BusinessGoalsInteger.of_json in
      make ?speedOfMigration ?reduceOperationalOverheadWithManagedServices
        ?modernizeInfrastructureWithCloudNativeTechnologies
        ?licenseCostReduction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Business goals that you specify."]
module ServerDetail =
  struct
    type nonrec t =
      {
      antipatternReportS3Object: S3Object.t option
        [@ocaml.doc
          "The S3 bucket name and Amazon S3 key name for anti-pattern report."];
      antipatternReportStatus: AntipatternReportStatus.t option
        [@ocaml.doc "The status of the anti-pattern report generation."];
      antipatternReportStatusMessage: StatusMessage.t option
        [@ocaml.doc
          "A message about the status of the anti-pattern report generation."];
      applicationComponentStrategySummary: ListStrategySummary.t option
        [@ocaml.doc "A list of strategy summaries."];
      dataCollectionStatus: RunTimeAssessmentStatus.t option
        [@ocaml.doc "The status of assessment for the server."];
      id: ResourceId.t option [@ocaml.doc "The server ID."];
      lastAnalyzedTimestamp: TimeStamp.t option
        [@ocaml.doc "The timestamp of when the server was assessed."];
      listAntipatternSeveritySummary: ListAntipatternSeveritySummary.t option
        [@ocaml.doc "A list of anti-pattern severity summaries."];
      name: ResourceName.t option [@ocaml.doc "The name of the server."];
      recommendationSet: RecommendationSet.t option
        [@ocaml.doc "A set of recommendations."];
      serverError: ServerError.t option
        [@ocaml.doc "The error in server analysis."];
      serverType: String_.t option [@ocaml.doc "The type of server."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A message about the status of data collection, which contains detailed descriptions of any error messages."];
      systemInfo: SystemInfo.t option
        [@ocaml.doc "System information about the server."]}
    let make ?antipatternReportS3Object =
      fun ?antipatternReportStatus ->
        fun ?antipatternReportStatusMessage ->
          fun ?applicationComponentStrategySummary ->
            fun ?dataCollectionStatus ->
              fun ?id ->
                fun ?lastAnalyzedTimestamp ->
                  fun ?listAntipatternSeveritySummary ->
                    fun ?name ->
                      fun ?recommendationSet ->
                        fun ?serverError ->
                          fun ?serverType ->
                            fun ?statusMessage ->
                              fun ?systemInfo ->
                                fun () ->
                                  {
                                    antipatternReportS3Object;
                                    antipatternReportStatus;
                                    antipatternReportStatusMessage;
                                    applicationComponentStrategySummary;
                                    dataCollectionStatus;
                                    id;
                                    lastAnalyzedTimestamp;
                                    listAntipatternSeveritySummary;
                                    name;
                                    recommendationSet;
                                    serverError;
                                    serverType;
                                    statusMessage;
                                    systemInfo
                                  }
    let to_value x =
      structure_to_value
        [("antipatternReportS3Object",
           (Option.map x.antipatternReportS3Object ~f:S3Object.to_value));
        ("antipatternReportStatus",
          (Option.map x.antipatternReportStatus
             ~f:AntipatternReportStatus.to_value));
        ("antipatternReportStatusMessage",
          (Option.map x.antipatternReportStatusMessage
             ~f:StatusMessage.to_value));
        ("applicationComponentStrategySummary",
          (Option.map x.applicationComponentStrategySummary
             ~f:ListStrategySummary.to_value));
        ("dataCollectionStatus",
          (Option.map x.dataCollectionStatus
             ~f:RunTimeAssessmentStatus.to_value));
        ("id", (Option.map x.id ~f:ResourceId.to_value));
        ("lastAnalyzedTimestamp",
          (Option.map x.lastAnalyzedTimestamp ~f:TimeStamp.to_value));
        ("listAntipatternSeveritySummary",
          (Option.map x.listAntipatternSeveritySummary
             ~f:ListAntipatternSeveritySummary.to_value));
        ("name", (Option.map x.name ~f:ResourceName.to_value));
        ("recommendationSet",
          (Option.map x.recommendationSet ~f:RecommendationSet.to_value));
        ("serverError", (Option.map x.serverError ~f:ServerError.to_value));
        ("serverType", (Option.map x.serverType ~f:String_.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("systemInfo", (Option.map x.systemInfo ~f:SystemInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let systemInfo =
        (Option.map ~f:SystemInfo.of_xml) (Xml.child xml_arg0 "systemInfo") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let serverType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serverType") in
      let serverError =
        (Option.map ~f:ServerError.of_xml) (Xml.child xml_arg0 "serverError") in
      let recommendationSet =
        (Option.map ~f:RecommendationSet.of_xml)
          (Xml.child xml_arg0 "recommendationSet") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "name") in
      let listAntipatternSeveritySummary =
        (Option.map ~f:ListAntipatternSeveritySummary.of_xml)
          (Xml.child xml_arg0 "listAntipatternSeveritySummary") in
      let lastAnalyzedTimestamp =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "lastAnalyzedTimestamp") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "id") in
      let dataCollectionStatus =
        (Option.map ~f:RunTimeAssessmentStatus.of_xml)
          (Xml.child xml_arg0 "dataCollectionStatus") in
      let applicationComponentStrategySummary =
        (Option.map ~f:ListStrategySummary.of_xml)
          (Xml.child xml_arg0 "applicationComponentStrategySummary") in
      let antipatternReportStatusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatusMessage") in
      let antipatternReportStatus =
        (Option.map ~f:AntipatternReportStatus.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatus") in
      let antipatternReportS3Object =
        (Option.map ~f:S3Object.of_xml)
          (Xml.child xml_arg0 "antipatternReportS3Object") in
      make ?systemInfo ?statusMessage ?serverType ?serverError
        ?recommendationSet ?name ?listAntipatternSeveritySummary
        ?lastAnalyzedTimestamp ?id ?dataCollectionStatus
        ?applicationComponentStrategySummary ?antipatternReportStatusMessage
        ?antipatternReportStatus ?antipatternReportS3Object ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let systemInfo = field_map json__ "systemInfo" SystemInfo.of_json in
      let statusMessage =
        field_map json__ "statusMessage" StatusMessage.of_json in
      let serverType = field_map json__ "serverType" String_.of_json in
      let serverError = field_map json__ "serverError" ServerError.of_json in
      let recommendationSet =
        field_map json__ "recommendationSet" RecommendationSet.of_json in
      let name = field_map json__ "name" ResourceName.of_json in
      let listAntipatternSeveritySummary =
        field_map json__ "listAntipatternSeveritySummary"
          ListAntipatternSeveritySummary.of_json in
      let lastAnalyzedTimestamp =
        field_map json__ "lastAnalyzedTimestamp" TimeStamp.of_json in
      let id = field_map json__ "id" ResourceId.of_json in
      let dataCollectionStatus =
        field_map json__ "dataCollectionStatus"
          RunTimeAssessmentStatus.of_json in
      let applicationComponentStrategySummary =
        field_map json__ "applicationComponentStrategySummary"
          ListStrategySummary.of_json in
      let antipatternReportStatusMessage =
        field_map json__ "antipatternReportStatusMessage"
          StatusMessage.of_json in
      let antipatternReportStatus =
        field_map json__ "antipatternReportStatus"
          AntipatternReportStatus.of_json in
      let antipatternReportS3Object =
        field_map json__ "antipatternReportS3Object" S3Object.of_json in
      make ?systemInfo ?statusMessage ?serverType ?serverError
        ?recommendationSet ?name ?listAntipatternSeveritySummary
        ?lastAnalyzedTimestamp ?id ?dataCollectionStatus
        ?applicationComponentStrategySummary ?antipatternReportStatusMessage
        ?antipatternReportStatus ?antipatternReportS3Object ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information about a server."]
module ImportFileTaskInformation =
  struct
    type nonrec t =
      {
      completionTime: TimeStamp.t option
        [@ocaml.doc "The time that the import task completes."];
      id: String_.t option [@ocaml.doc "The ID of the import file task."];
      importName: String_.t option
        [@ocaml.doc
          "The name of the import task given in StartImportFileTask."];
      inputS3Bucket: ImportS3Bucket.t option
        [@ocaml.doc "The S3 bucket where the import file is located."];
      inputS3Key: ImportS3Key.t option
        [@ocaml.doc "The Amazon S3 key name of the import file."];
      numberOfRecordsFailed: Integer.t option
        [@ocaml.doc "The number of records that failed to be imported."];
      numberOfRecordsSuccess: Integer.t option
        [@ocaml.doc "The number of records successfully imported."];
      startTime: TimeStamp.t option
        [@ocaml.doc "Start time of the import task."];
      status: ImportFileTaskStatus.t option
        [@ocaml.doc "Status of import file task."];
      statusReportS3Bucket: ImportS3Bucket.t option
        [@ocaml.doc "The S3 bucket name for status report of import task."];
      statusReportS3Key: ImportS3Key.t option
        [@ocaml.doc
          "The Amazon S3 key name for status report of import task. The report contains details about whether each record imported successfully or why it did not."]}
    let make ?completionTime =
      fun ?id ->
        fun ?importName ->
          fun ?inputS3Bucket ->
            fun ?inputS3Key ->
              fun ?numberOfRecordsFailed ->
                fun ?numberOfRecordsSuccess ->
                  fun ?startTime ->
                    fun ?status ->
                      fun ?statusReportS3Bucket ->
                        fun ?statusReportS3Key ->
                          fun () ->
                            {
                              completionTime;
                              id;
                              importName;
                              inputS3Bucket;
                              inputS3Key;
                              numberOfRecordsFailed;
                              numberOfRecordsSuccess;
                              startTime;
                              status;
                              statusReportS3Bucket;
                              statusReportS3Key
                            }
    let to_value x =
      structure_to_value
        [("completionTime",
           (Option.map x.completionTime ~f:TimeStamp.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("importName", (Option.map x.importName ~f:String_.to_value));
        ("inputS3Bucket",
          (Option.map x.inputS3Bucket ~f:ImportS3Bucket.to_value));
        ("inputS3Key", (Option.map x.inputS3Key ~f:ImportS3Key.to_value));
        ("numberOfRecordsFailed",
          (Option.map x.numberOfRecordsFailed ~f:Integer.to_value));
        ("numberOfRecordsSuccess",
          (Option.map x.numberOfRecordsSuccess ~f:Integer.to_value));
        ("startTime", (Option.map x.startTime ~f:TimeStamp.to_value));
        ("status", (Option.map x.status ~f:ImportFileTaskStatus.to_value));
        ("statusReportS3Bucket",
          (Option.map x.statusReportS3Bucket ~f:ImportS3Bucket.to_value));
        ("statusReportS3Key",
          (Option.map x.statusReportS3Key ~f:ImportS3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReportS3Key =
        (Option.map ~f:ImportS3Key.of_xml)
          (Xml.child xml_arg0 "statusReportS3Key") in
      let statusReportS3Bucket =
        (Option.map ~f:ImportS3Bucket.of_xml)
          (Xml.child xml_arg0 "statusReportS3Bucket") in
      let status =
        (Option.map ~f:ImportFileTaskStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:TimeStamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let numberOfRecordsSuccess =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfRecordsSuccess") in
      let numberOfRecordsFailed =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfRecordsFailed") in
      let inputS3Key =
        (Option.map ~f:ImportS3Key.of_xml) (Xml.child xml_arg0 "inputS3Key") in
      let inputS3Bucket =
        (Option.map ~f:ImportS3Bucket.of_xml)
          (Xml.child xml_arg0 "inputS3Bucket") in
      let importName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "importName") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let completionTime =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      make ?statusReportS3Key ?statusReportS3Bucket ?status ?startTime
        ?numberOfRecordsSuccess ?numberOfRecordsFailed ?inputS3Key
        ?inputS3Bucket ?importName ?id ?completionTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReportS3Key =
        field_map json__ "statusReportS3Key" ImportS3Key.of_json in
      let statusReportS3Bucket =
        field_map json__ "statusReportS3Bucket" ImportS3Bucket.of_json in
      let status = field_map json__ "status" ImportFileTaskStatus.of_json in
      let startTime = field_map json__ "startTime" TimeStamp.of_json in
      let numberOfRecordsSuccess =
        field_map json__ "numberOfRecordsSuccess" Integer.of_json in
      let numberOfRecordsFailed =
        field_map json__ "numberOfRecordsFailed" Integer.of_json in
      let inputS3Key = field_map json__ "inputS3Key" ImportS3Key.of_json in
      let inputS3Bucket =
        field_map json__ "inputS3Bucket" ImportS3Bucket.of_json in
      let importName = field_map json__ "importName" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let completionTime =
        field_map json__ "completionTime" TimeStamp.of_json in
      make ?statusReportS3Key ?statusReportS3Bucket ?status ?startTime
        ?numberOfRecordsSuccess ?numberOfRecordsFailed ?inputS3Key
        ?inputS3Bucket ?importName ?id ?completionTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the import file tasks you request."]
module Collector =
  struct
    type nonrec t =
      {
      collectorHealth: CollectorHealth.t option
        [@ocaml.doc "Indicates the health of a collector."];
      collectorId: String_.t option [@ocaml.doc "The ID of the collector."];
      collectorVersion: String_.t option
        [@ocaml.doc
          "Current version of the collector that is running in the environment that you specify."];
      configurationSummary: ConfigurationSummary.t option
        [@ocaml.doc "Summary of the collector configuration."];
      hostName: String_.t option
        [@ocaml.doc "Hostname of the server that is hosting the collector."];
      ipAddress: String_.t option
        [@ocaml.doc
          "IP address of the server that is hosting the collector."];
      lastActivityTimeStamp: String_.t option
        [@ocaml.doc "Time when the collector last pinged the service."];
      registeredTimeStamp: String_.t option
        [@ocaml.doc "Time when the collector registered with the service."]}
    let make ?collectorHealth =
      fun ?collectorId ->
        fun ?collectorVersion ->
          fun ?configurationSummary ->
            fun ?hostName ->
              fun ?ipAddress ->
                fun ?lastActivityTimeStamp ->
                  fun ?registeredTimeStamp ->
                    fun () ->
                      {
                        collectorHealth;
                        collectorId;
                        collectorVersion;
                        configurationSummary;
                        hostName;
                        ipAddress;
                        lastActivityTimeStamp;
                        registeredTimeStamp
                      }
    let to_value x =
      structure_to_value
        [("collectorHealth",
           (Option.map x.collectorHealth ~f:CollectorHealth.to_value));
        ("collectorId", (Option.map x.collectorId ~f:String_.to_value));
        ("collectorVersion",
          (Option.map x.collectorVersion ~f:String_.to_value));
        ("configurationSummary",
          (Option.map x.configurationSummary ~f:ConfigurationSummary.to_value));
        ("hostName", (Option.map x.hostName ~f:String_.to_value));
        ("ipAddress", (Option.map x.ipAddress ~f:String_.to_value));
        ("lastActivityTimeStamp",
          (Option.map x.lastActivityTimeStamp ~f:String_.to_value));
        ("registeredTimeStamp",
          (Option.map x.registeredTimeStamp ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registeredTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "registeredTimeStamp") in
      let lastActivityTimeStamp =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "lastActivityTimeStamp") in
      let ipAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipAddress") in
      let hostName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "hostName") in
      let configurationSummary =
        (Option.map ~f:ConfigurationSummary.of_xml)
          (Xml.child xml_arg0 "configurationSummary") in
      let collectorVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "collectorVersion") in
      let collectorId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "collectorId") in
      let collectorHealth =
        (Option.map ~f:CollectorHealth.of_xml)
          (Xml.child xml_arg0 "collectorHealth") in
      make ?registeredTimeStamp ?lastActivityTimeStamp ?ipAddress ?hostName
        ?configurationSummary ?collectorVersion ?collectorId ?collectorHealth
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registeredTimeStamp =
        field_map json__ "registeredTimeStamp" String_.of_json in
      let lastActivityTimeStamp =
        field_map json__ "lastActivityTimeStamp" String_.of_json in
      let ipAddress = field_map json__ "ipAddress" String_.of_json in
      let hostName = field_map json__ "hostName" String_.of_json in
      let configurationSummary =
        field_map json__ "configurationSummary" ConfigurationSummary.of_json in
      let collectorVersion =
        field_map json__ "collectorVersion" String_.of_json in
      let collectorId = field_map json__ "collectorId" String_.of_json in
      let collectorHealth =
        field_map json__ "collectorHealth" CollectorHealth.of_json in
      make ?registeredTimeStamp ?lastActivityTimeStamp ?ipAddress ?hostName
        ?configurationSummary ?collectorVersion ?collectorId ?collectorHealth
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Process data collector that runs in the environment that you specify."]
module ApplicationComponentDetail =
  struct
    type nonrec t =
      {
      analysisStatus: SrcCodeOrDbAnalysisStatus.t option
        [@ocaml.doc
          "The status of analysis, if the application component has source code or an associated database."];
      antipatternReportS3Object: S3Object.t option
        [@ocaml.doc
          "The S3 bucket name and the Amazon S3 key name for the anti-pattern report."];
      antipatternReportStatus: AntipatternReportStatus.t option
        [@ocaml.doc "The status of the anti-pattern report generation."];
      antipatternReportStatusMessage: StatusMessage.t option
        [@ocaml.doc "The status message for the anti-pattern."];
      appType: AppType.t option
        [@ocaml.doc "The type of application component."];
      appUnitError: AppUnitError.t option
        [@ocaml.doc
          "The error in the analysis of the source code or database."];
      associatedServerId: ServerId.t option
        [@ocaml.doc
          "The ID of the server that the application component is running on."];
      databaseConfigDetail: DatabaseConfigDetail.t option
        [@ocaml.doc
          "Configuration details for the database associated with the application component."];
      id: ResourceId.t option
        [@ocaml.doc "The ID of the application component."];
      inclusionStatus: InclusionStatus.t option
        [@ocaml.doc
          "Indicates whether the application component has been included for server recommendation or not."];
      lastAnalyzedTimestamp: TimeStamp.t option
        [@ocaml.doc
          "The timestamp of when the application component was assessed."];
      listAntipatternSeveritySummary: ListAntipatternSeveritySummary.t option
        [@ocaml.doc "A list of anti-pattern severity summaries."];
      moreServerAssociationExists: Boolean.t option
        [@ocaml.doc
          "Set to true if the application component is running on multiple servers."];
      name: ResourceName.t option
        [@ocaml.doc "The name of application component."];
      osDriver: String_.t option [@ocaml.doc "OS driver."];
      osVersion: String_.t option [@ocaml.doc "OS version."];
      recommendationSet: RecommendationSet.t option
        [@ocaml.doc
          "The top recommendation set for the application component."];
      resourceSubType: ResourceSubType.t option
        [@ocaml.doc "The application component subtype."];
      resultList: ResultList.t option
        [@ocaml.doc "A list of the analysis results."];
      runtimeStatus: RuntimeAnalysisStatus.t option
        [@ocaml.doc "The status of the application unit."];
      runtimeStatusMessage: StatusMessage.t option
        [@ocaml.doc "The status message for the application unit."];
      sourceCodeRepositories: SourceCodeRepositories.t option
        [@ocaml.doc
          "Details about the source code repository associated with the application component."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A detailed description of the analysis status and any failure message."]}
    let make ?analysisStatus =
      fun ?antipatternReportS3Object ->
        fun ?antipatternReportStatus ->
          fun ?antipatternReportStatusMessage ->
            fun ?appType ->
              fun ?appUnitError ->
                fun ?associatedServerId ->
                  fun ?databaseConfigDetail ->
                    fun ?id ->
                      fun ?inclusionStatus ->
                        fun ?lastAnalyzedTimestamp ->
                          fun ?listAntipatternSeveritySummary ->
                            fun ?moreServerAssociationExists ->
                              fun ?name ->
                                fun ?osDriver ->
                                  fun ?osVersion ->
                                    fun ?recommendationSet ->
                                      fun ?resourceSubType ->
                                        fun ?resultList ->
                                          fun ?runtimeStatus ->
                                            fun ?runtimeStatusMessage ->
                                              fun ?sourceCodeRepositories ->
                                                fun ?statusMessage ->
                                                  fun () ->
                                                    {
                                                      analysisStatus;
                                                      antipatternReportS3Object;
                                                      antipatternReportStatus;
                                                      antipatternReportStatusMessage;
                                                      appType;
                                                      appUnitError;
                                                      associatedServerId;
                                                      databaseConfigDetail;
                                                      id;
                                                      inclusionStatus;
                                                      lastAnalyzedTimestamp;
                                                      listAntipatternSeveritySummary;
                                                      moreServerAssociationExists;
                                                      name;
                                                      osDriver;
                                                      osVersion;
                                                      recommendationSet;
                                                      resourceSubType;
                                                      resultList;
                                                      runtimeStatus;
                                                      runtimeStatusMessage;
                                                      sourceCodeRepositories;
                                                      statusMessage
                                                    }
    let to_value x =
      structure_to_value
        [("analysisStatus",
           (Option.map x.analysisStatus ~f:SrcCodeOrDbAnalysisStatus.to_value));
        ("antipatternReportS3Object",
          (Option.map x.antipatternReportS3Object ~f:S3Object.to_value));
        ("antipatternReportStatus",
          (Option.map x.antipatternReportStatus
             ~f:AntipatternReportStatus.to_value));
        ("antipatternReportStatusMessage",
          (Option.map x.antipatternReportStatusMessage
             ~f:StatusMessage.to_value));
        ("appType", (Option.map x.appType ~f:AppType.to_value));
        ("appUnitError",
          (Option.map x.appUnitError ~f:AppUnitError.to_value));
        ("associatedServerId",
          (Option.map x.associatedServerId ~f:ServerId.to_value));
        ("databaseConfigDetail",
          (Option.map x.databaseConfigDetail ~f:DatabaseConfigDetail.to_value));
        ("id", (Option.map x.id ~f:ResourceId.to_value));
        ("inclusionStatus",
          (Option.map x.inclusionStatus ~f:InclusionStatus.to_value));
        ("lastAnalyzedTimestamp",
          (Option.map x.lastAnalyzedTimestamp ~f:TimeStamp.to_value));
        ("listAntipatternSeveritySummary",
          (Option.map x.listAntipatternSeveritySummary
             ~f:ListAntipatternSeveritySummary.to_value));
        ("moreServerAssociationExists",
          (Option.map x.moreServerAssociationExists ~f:Boolean.to_value));
        ("name", (Option.map x.name ~f:ResourceName.to_value));
        ("osDriver", (Option.map x.osDriver ~f:String_.to_value));
        ("osVersion", (Option.map x.osVersion ~f:String_.to_value));
        ("recommendationSet",
          (Option.map x.recommendationSet ~f:RecommendationSet.to_value));
        ("resourceSubType",
          (Option.map x.resourceSubType ~f:ResourceSubType.to_value));
        ("resultList", (Option.map x.resultList ~f:ResultList.to_value));
        ("runtimeStatus",
          (Option.map x.runtimeStatus ~f:RuntimeAnalysisStatus.to_value));
        ("runtimeStatusMessage",
          (Option.map x.runtimeStatusMessage ~f:StatusMessage.to_value));
        ("sourceCodeRepositories",
          (Option.map x.sourceCodeRepositories
             ~f:SourceCodeRepositories.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let sourceCodeRepositories =
        (Option.map ~f:SourceCodeRepositories.of_xml)
          (Xml.child xml_arg0 "sourceCodeRepositories") in
      let runtimeStatusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "runtimeStatusMessage") in
      let runtimeStatus =
        (Option.map ~f:RuntimeAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "runtimeStatus") in
      let resultList =
        (Option.map ~f:ResultList.of_xml) (Xml.child xml_arg0 "resultList") in
      let resourceSubType =
        (Option.map ~f:ResourceSubType.of_xml)
          (Xml.child xml_arg0 "resourceSubType") in
      let recommendationSet =
        (Option.map ~f:RecommendationSet.of_xml)
          (Xml.child xml_arg0 "recommendationSet") in
      let osVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "osVersion") in
      let osDriver =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "osDriver") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "name") in
      let moreServerAssociationExists =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "moreServerAssociationExists") in
      let listAntipatternSeveritySummary =
        (Option.map ~f:ListAntipatternSeveritySummary.of_xml)
          (Xml.child xml_arg0 "listAntipatternSeveritySummary") in
      let lastAnalyzedTimestamp =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "lastAnalyzedTimestamp") in
      let inclusionStatus =
        (Option.map ~f:InclusionStatus.of_xml)
          (Xml.child xml_arg0 "inclusionStatus") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "id") in
      let databaseConfigDetail =
        (Option.map ~f:DatabaseConfigDetail.of_xml)
          (Xml.child xml_arg0 "databaseConfigDetail") in
      let associatedServerId =
        (Option.map ~f:ServerId.of_xml)
          (Xml.child xml_arg0 "associatedServerId") in
      let appUnitError =
        (Option.map ~f:AppUnitError.of_xml)
          (Xml.child xml_arg0 "appUnitError") in
      let appType =
        (Option.map ~f:AppType.of_xml) (Xml.child xml_arg0 "appType") in
      let antipatternReportStatusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatusMessage") in
      let antipatternReportStatus =
        (Option.map ~f:AntipatternReportStatus.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatus") in
      let antipatternReportS3Object =
        (Option.map ~f:S3Object.of_xml)
          (Xml.child xml_arg0 "antipatternReportS3Object") in
      let analysisStatus =
        (Option.map ~f:SrcCodeOrDbAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "analysisStatus") in
      make ?statusMessage ?sourceCodeRepositories ?runtimeStatusMessage
        ?runtimeStatus ?resultList ?resourceSubType ?recommendationSet
        ?osVersion ?osDriver ?name ?moreServerAssociationExists
        ?listAntipatternSeveritySummary ?lastAnalyzedTimestamp
        ?inclusionStatus ?id ?databaseConfigDetail ?associatedServerId
        ?appUnitError ?appType ?antipatternReportStatusMessage
        ?antipatternReportStatus ?antipatternReportS3Object ?analysisStatus
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "statusMessage" StatusMessage.of_json in
      let sourceCodeRepositories =
        field_map json__ "sourceCodeRepositories"
          SourceCodeRepositories.of_json in
      let runtimeStatusMessage =
        field_map json__ "runtimeStatusMessage" StatusMessage.of_json in
      let runtimeStatus =
        field_map json__ "runtimeStatus" RuntimeAnalysisStatus.of_json in
      let resultList = field_map json__ "resultList" ResultList.of_json in
      let resourceSubType =
        field_map json__ "resourceSubType" ResourceSubType.of_json in
      let recommendationSet =
        field_map json__ "recommendationSet" RecommendationSet.of_json in
      let osVersion = field_map json__ "osVersion" String_.of_json in
      let osDriver = field_map json__ "osDriver" String_.of_json in
      let name = field_map json__ "name" ResourceName.of_json in
      let moreServerAssociationExists =
        field_map json__ "moreServerAssociationExists" Boolean.of_json in
      let listAntipatternSeveritySummary =
        field_map json__ "listAntipatternSeveritySummary"
          ListAntipatternSeveritySummary.of_json in
      let lastAnalyzedTimestamp =
        field_map json__ "lastAnalyzedTimestamp" TimeStamp.of_json in
      let inclusionStatus =
        field_map json__ "inclusionStatus" InclusionStatus.of_json in
      let id = field_map json__ "id" ResourceId.of_json in
      let databaseConfigDetail =
        field_map json__ "databaseConfigDetail" DatabaseConfigDetail.of_json in
      let associatedServerId =
        field_map json__ "associatedServerId" ServerId.of_json in
      let appUnitError = field_map json__ "appUnitError" AppUnitError.of_json in
      let appType = field_map json__ "appType" AppType.of_json in
      let antipatternReportStatusMessage =
        field_map json__ "antipatternReportStatusMessage"
          StatusMessage.of_json in
      let antipatternReportStatus =
        field_map json__ "antipatternReportStatus"
          AntipatternReportStatus.of_json in
      let antipatternReportS3Object =
        field_map json__ "antipatternReportS3Object" S3Object.of_json in
      let analysisStatus =
        field_map json__ "analysisStatus" SrcCodeOrDbAnalysisStatus.of_json in
      make ?statusMessage ?sourceCodeRepositories ?runtimeStatusMessage
        ?runtimeStatus ?resultList ?resourceSubType ?recommendationSet
        ?osVersion ?osDriver ?name ?moreServerAssociationExists
        ?listAntipatternSeveritySummary ?lastAnalyzedTimestamp
        ?inclusionStatus ?id ?databaseConfigDetail ?associatedServerId
        ?appUnitError ?appType ?antipatternReportStatusMessage
        ?antipatternReportStatus ?antipatternReportS3Object ?analysisStatus
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about an application component."]
module AnalyzableServerSummary =
  struct
    type nonrec t =
      {
      hostname: String_.t option
        [@ocaml.doc "The host name of the analyzable server."];
      ipAddress: String_.t option
        [@ocaml.doc "The ip address of the analyzable server."];
      source: String_.t option
        [@ocaml.doc "The data source of the analyzable server."];
      vmId: String_.t option
        [@ocaml.doc "The virtual machine id of the analyzable server."]}
    let make ?hostname =
      fun ?ipAddress ->
        fun ?source ->
          fun ?vmId -> fun () -> { hostname; ipAddress; source; vmId }
    let to_value x =
      structure_to_value
        [("hostname", (Option.map x.hostname ~f:String_.to_value));
        ("ipAddress", (Option.map x.ipAddress ~f:String_.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("vmId", (Option.map x.vmId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vmId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vmId") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let ipAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipAddress") in
      let hostname =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "hostname") in
      make ?vmId ?source ?ipAddress ?hostname ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vmId = field_map json__ "vmId" String_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let ipAddress = field_map json__ "ipAddress" String_.of_json in
      let hostname = field_map json__ "hostname" String_.of_json in
      make ?vmId ?source ?ipAddress ?hostname ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an analyzable server."]
module ServerStrategy =
  struct
    type nonrec t =
      {
      isPreferred: Boolean.t option
        [@ocaml.doc "Set to true if the recommendation is set as preferred."];
      numberOfApplicationComponents: Integer.t option
        [@ocaml.doc
          "The number of application components with this strategy recommendation running on the server."];
      recommendation: RecommendationSet.t option
        [@ocaml.doc "Strategy recommendation for the server."];
      status: StrategyRecommendation.t option
        [@ocaml.doc
          "The recommendation status of the strategy for the server."]}
    let make ?isPreferred =
      fun ?numberOfApplicationComponents ->
        fun ?recommendation ->
          fun ?status ->
            fun () ->
              {
                isPreferred;
                numberOfApplicationComponents;
                recommendation;
                status
              }
    let to_value x =
      structure_to_value
        [("isPreferred", (Option.map x.isPreferred ~f:Boolean.to_value));
        ("numberOfApplicationComponents",
          (Option.map x.numberOfApplicationComponents ~f:Integer.to_value));
        ("recommendation",
          (Option.map x.recommendation ~f:RecommendationSet.to_value));
        ("status", (Option.map x.status ~f:StrategyRecommendation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:StrategyRecommendation.of_xml)
          (Xml.child xml_arg0 "status") in
      let recommendation =
        (Option.map ~f:RecommendationSet.of_xml)
          (Xml.child xml_arg0 "recommendation") in
      let numberOfApplicationComponents =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfApplicationComponents") in
      let isPreferred =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isPreferred") in
      make ?status ?recommendation ?numberOfApplicationComponents
        ?isPreferred ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" StrategyRecommendation.of_json in
      let recommendation =
        field_map json__ "recommendation" RecommendationSet.of_json in
      let numberOfApplicationComponents =
        field_map json__ "numberOfApplicationComponents" Integer.of_json in
      let isPreferred = field_map json__ "isPreferred" Boolean.of_json in
      make ?status ?recommendation ?numberOfApplicationComponents
        ?isPreferred ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a strategy recommendation for a server."]
module AssociatedApplication =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "ID of the application as defined in Application Discovery Service."];
      name: String_.t option
        [@ocaml.doc
          "Name of the application as defined in Application Discovery Service."]}
    let make ?id = fun ?name -> fun () -> { id; name }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" String_.of_json in
      let id = field_map json__ "id" String_.of_json in make ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object containing details about applications as defined in Application Discovery Service."]
module RecommendationReportStatus =
  struct
    type nonrec t =
      | FAILED 
      | IN_PROGRESS 
      | SUCCESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCESS -> "SUCCESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCESS" -> SUCCESS
      | 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 RecommendationReportStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecommendationReportStatus" j)
    let to_json = simple_to_json to_value
  end
module RecommendationReportStatusMessage =
  struct
    type nonrec t = string
    let context_ = "RecommendationReportStatusMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"RecommendationReportStatusMessage" j
    let to_json = simple_to_json to_value
  end
module RecommendationReportTimeStamp =
  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 S3Keys =
  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:"S3Keys" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListApplicationComponentStatusSummary =
  struct
    type nonrec t = ApplicationComponentStatusSummary.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:ApplicationComponentStatusSummary.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:ApplicationComponentStatusSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListApplicationComponentStatusSummary"
        ~of_json:ApplicationComponentStatusSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListApplicationComponentSummary =
  struct
    type nonrec t = ApplicationComponentSummary.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:ApplicationComponentSummary.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:ApplicationComponentSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListApplicationComponentSummary"
        ~of_json:ApplicationComponentSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServerStatusSummary =
  struct
    type nonrec t = ServerStatusSummary.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:ServerStatusSummary.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:ServerStatusSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListServerStatusSummary"
        ~of_json:ServerStatusSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServerSummary =
  struct
    type nonrec t = ServerSummary.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:ServerSummary.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:ServerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListServerSummary" ~of_json:ServerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | COMPLETE 
      | FAILED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETE -> "COMPLETE"
      | FAILED -> "FAILED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETE" -> COMPLETE
      | "FAILED" -> FAILED
      | "STOPPED" -> STOPPED
      | 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 AssessmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssessmentStatus" j)
    let to_json = simple_to_json to_value
  end
module AssessmentStatusMessage =
  struct
    type nonrec t = string
    let context_ = "AssessmentStatusMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"AssessmentStatusMessage" j
    let to_json = simple_to_json to_value
  end
module ApplicationComponentStrategy =
  struct
    type nonrec t =
      {
      isPreferred: Boolean.t option
        [@ocaml.doc "Set to true if the recommendation is set as preferred."];
      recommendation: RecommendationSet.t option
        [@ocaml.doc "Strategy recommendation for the application component."];
      status: StrategyRecommendation.t option
        [@ocaml.doc
          "The recommendation status of a strategy for an application component."]}
    let make ?isPreferred =
      fun ?recommendation ->
        fun ?status -> fun () -> { isPreferred; recommendation; status }
    let to_value x =
      structure_to_value
        [("isPreferred", (Option.map x.isPreferred ~f:Boolean.to_value));
        ("recommendation",
          (Option.map x.recommendation ~f:RecommendationSet.to_value));
        ("status", (Option.map x.status ~f:StrategyRecommendation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:StrategyRecommendation.of_xml)
          (Xml.child xml_arg0 "status") in
      let recommendation =
        (Option.map ~f:RecommendationSet.of_xml)
          (Xml.child xml_arg0 "recommendation") in
      let isPreferred =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isPreferred") in
      make ?status ?recommendation ?isPreferred ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" StrategyRecommendation.of_json in
      let recommendation =
        field_map json__ "recommendation" RecommendationSet.of_json in
      let isPreferred = field_map json__ "isPreferred" Boolean.of_json in
      make ?status ?recommendation ?isPreferred ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a strategy recommendation for an application component."]
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 "The server experienced an internal error. Try again."]
module ResourceNotFoundException =
  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 specified ID in the request is not found."]
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 request was denied due to request throttling."]
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 request body isn't valid."]
module StrategyOption =
  struct
    type nonrec t =
      {
      isPreferred: Boolean.t option
        [@ocaml.doc
          "Indicates if a specific strategy is preferred for the application component."];
      strategy: Strategy.t option
        [@ocaml.doc
          "Type of transformation. For example, Rehost, Replatform, and so on."];
      targetDestination: TargetDestination.t option
        [@ocaml.doc
          "Destination information about where the application component can migrate to. For example, EC2, ECS, and so on."];
      toolName: TransformationToolName.t option
        [@ocaml.doc
          "The name of the tool that can be used to transform an application component using this strategy."]}
    let make ?isPreferred =
      fun ?strategy ->
        fun ?targetDestination ->
          fun ?toolName ->
            fun () -> { isPreferred; strategy; targetDestination; toolName }
    let to_value x =
      structure_to_value
        [("isPreferred", (Option.map x.isPreferred ~f:Boolean.to_value));
        ("strategy", (Option.map x.strategy ~f:Strategy.to_value));
        ("targetDestination",
          (Option.map x.targetDestination ~f:TargetDestination.to_value));
        ("toolName",
          (Option.map x.toolName ~f:TransformationToolName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toolName =
        (Option.map ~f:TransformationToolName.of_xml)
          (Xml.child xml_arg0 "toolName") in
      let targetDestination =
        (Option.map ~f:TargetDestination.of_xml)
          (Xml.child xml_arg0 "targetDestination") in
      let strategy =
        (Option.map ~f:Strategy.of_xml) (Xml.child xml_arg0 "strategy") in
      let isPreferred =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isPreferred") in
      make ?toolName ?targetDestination ?strategy ?isPreferred ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toolName =
        field_map json__ "toolName" TransformationToolName.of_json in
      let targetDestination =
        field_map json__ "targetDestination" TargetDestination.of_json in
      let strategy = field_map json__ "strategy" Strategy.of_json in
      let isPreferred = field_map json__ "isPreferred" Boolean.of_json in
      make ?toolName ?targetDestination ?strategy ?isPreferred ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about all the available strategy options for migrating and modernizing an application component."]
module ApplicationComponentId =
  struct
    type nonrec t = string
    let context_ = "ApplicationComponentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:44) >>=
                  (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:"ApplicationComponentId" j
    let to_json = simple_to_json to_value
  end
module SecretsManagerKey =
  struct
    type nonrec t = string
    let context_ = "SecretsManagerKey"
    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:".*")));
        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:"SecretsManagerKey" j
    let to_json = simple_to_json to_value
  end
module SourceCodeList =
  struct
    type nonrec t = SourceCode.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:SourceCode.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:SourceCode.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceCodeList" ~of_json:SourceCode.of_json j
    let to_json v = composed_to_json to_value v
  end
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
       "The user does not have permission to perform the action. Check the AWS Identity and Access Management (IAM) policy associated with this user."]
module AsyncTaskId =
  struct
    type nonrec t = string
    let context_ = "AsyncTaskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:52) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-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:"AsyncTaskId" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  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
       "Exception to indicate that there is an ongoing task when a new task is created. Return when once the existing tasks are complete."]
module RecommendationTaskId =
  struct
    type nonrec t = string
    let context_ = "RecommendationTaskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:52) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-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:"RecommendationTaskId" j
    let to_json = simple_to_json to_value
  end
module GroupIds =
  struct
    type nonrec t = Group.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:Group.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:Group.of_xml)
    let of_json j = list_of_json ~kind:"GroupIds" ~of_json:Group.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutputFormat =
  struct
    type nonrec t =
      | Excel 
      | Json 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Excel -> "Excel" | Json -> "Json" | Non_static_id s -> s
    let of_string =
      function | "Excel" -> Excel | "Json" -> Json | 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 OutputFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OutputFormat" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  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 AWS account has reached its quota of imports. Contact AWS Support to increase the quota for this account."]
module DataSourceType =
  struct
    type nonrec t =
      | ApplicationDiscoveryService 
      | MPA 
      | Import 
      | StrategyRecommendationsApplicationDataCollector 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ApplicationDiscoveryService -> "ApplicationDiscoveryService"
      | MPA -> "MPA"
      | Import -> "Import"
      | StrategyRecommendationsApplicationDataCollector ->
          "StrategyRecommendationsApplicationDataCollector"
      | Non_static_id s -> s
    let of_string =
      function
      | "ApplicationDiscoveryService" -> ApplicationDiscoveryService
      | "MPA" -> MPA
      | "Import" -> Import
      | "StrategyRecommendationsApplicationDataCollector" ->
          StrategyRecommendationsApplicationDataCollector
      | 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 DataSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataSourceType" j)
    let to_json = simple_to_json to_value
  end
module StartImportFileTaskRequestNameString =
  struct
    type nonrec t = string
    let context_ = "StartImportFileTaskRequestNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-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:"StartImportFileTaskRequestNameString" j
    let to_json = simple_to_json to_value
  end
module StartImportFileTaskRequestS3bucketForReportDataString =
  struct
    type nonrec t = string
    let context_ = "StartImportFileTaskRequestS3bucketForReportDataString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-z]+[0-9a-z\\.\\-]*[0-9a-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:"StartImportFileTaskRequestS3bucketForReportDataString" j
    let to_json = simple_to_json to_value
  end
module AssessmentDataSourceType =
  struct
    type nonrec t =
      | StrategyRecommendationsApplicationDataCollector 
      | ManualImport 
      | ApplicationDiscoveryService 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | StrategyRecommendationsApplicationDataCollector ->
          "StrategyRecommendationsApplicationDataCollector"
      | ManualImport -> "ManualImport"
      | ApplicationDiscoveryService -> "ApplicationDiscoveryService"
      | Non_static_id s -> s
    let of_string =
      function
      | "StrategyRecommendationsApplicationDataCollector" ->
          StrategyRecommendationsApplicationDataCollector
      | "ManualImport" -> ManualImport
      | "ApplicationDiscoveryService" -> ApplicationDiscoveryService
      | 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 AssessmentDataSourceType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AssessmentDataSourceType" j)
    let to_json = simple_to_json to_value
  end
module AssessmentTargets =
  struct
    type nonrec t = AssessmentTarget.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AssessmentTarget.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:AssessmentTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentTargets"
        ~of_json:AssessmentTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module StartAssessmentRequestS3bucketForAnalysisDataString =
  struct
    type nonrec t = string
    let context_ = "StartAssessmentRequestS3bucketForAnalysisDataString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-z]+[0-9a-z\\.\\-]*[0-9a-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:"StartAssessmentRequestS3bucketForAnalysisDataString" j
    let to_json = simple_to_json to_value
  end
module StartAssessmentRequestS3bucketForReportDataString =
  struct
    type nonrec t = string
    let context_ = "StartAssessmentRequestS3bucketForReportDataString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-z]+[0-9a-z\\.\\-]*[0-9a-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:"StartAssessmentRequestS3bucketForReportDataString" j
    let to_json = simple_to_json to_value
  end
module ApplicationMode =
  struct
    type nonrec t =
      | ALL 
      | KNOWN 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | KNOWN -> "KNOWN"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "KNOWN" -> KNOWN
      | "UNKNOWN" -> UNKNOWN
      | 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 ApplicationMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplicationMode" j)
    let to_json = simple_to_json to_value
  end
module ApplicationPreferences =
  struct
    type nonrec t =
      {
      managementPreference: ManagementPreference.t option
        [@ocaml.doc
          "Application preferences that you specify to prefer managed environment."]}
    let make ?managementPreference = fun () -> { managementPreference }
    let to_value x =
      structure_to_value
        [("managementPreference",
           (Option.map x.managementPreference
              ~f:ManagementPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managementPreference =
        (Option.map ~f:ManagementPreference.of_xml)
          (Xml.child xml_arg0 "managementPreference") in
      make ?managementPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managementPreference =
        field_map json__ "managementPreference" ManagementPreference.of_json in
      make ?managementPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Application preferences that you specify."]
module DatabasePreferences =
  struct
    type nonrec t =
      {
      databaseManagementPreference: DatabaseManagementPreference.t option
        [@ocaml.doc
          "Specifies whether you're interested in self-managed databases or databases managed by AWS."];
      databaseMigrationPreference: DatabaseMigrationPreference.t option
        [@ocaml.doc "Specifies your preferred migration path."]}
    let make ?databaseManagementPreference =
      fun ?databaseMigrationPreference ->
        fun () ->
          { databaseManagementPreference; databaseMigrationPreference }
    let to_value x =
      structure_to_value
        [("databaseManagementPreference",
           (Option.map x.databaseManagementPreference
              ~f:DatabaseManagementPreference.to_value));
        ("databaseMigrationPreference",
          (Option.map x.databaseMigrationPreference
             ~f:DatabaseMigrationPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let databaseMigrationPreference =
        (Option.map ~f:DatabaseMigrationPreference.of_xml)
          (Xml.child xml_arg0 "databaseMigrationPreference") in
      let databaseManagementPreference =
        (Option.map ~f:DatabaseManagementPreference.of_xml)
          (Xml.child xml_arg0 "databaseManagementPreference") in
      make ?databaseMigrationPreference ?databaseManagementPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let databaseMigrationPreference =
        field_map json__ "databaseMigrationPreference"
          DatabaseMigrationPreference.of_json in
      let databaseManagementPreference =
        field_map json__ "databaseManagementPreference"
          DatabaseManagementPreference.of_json in
      make ?databaseMigrationPreference ?databaseManagementPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Preferences on managing your databases on AWS."]
module PrioritizeBusinessGoals =
  struct
    type nonrec t =
      {
      businessGoals: BusinessGoals.t option
        [@ocaml.doc "Rank of business goals based on priority."]}
    let make ?businessGoals = fun () -> { businessGoals }
    let to_value x =
      structure_to_value
        [("businessGoals",
           (Option.map x.businessGoals ~f:BusinessGoals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let businessGoals =
        (Option.map ~f:BusinessGoals.of_xml)
          (Xml.child xml_arg0 "businessGoals") in
      make ?businessGoals ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let businessGoals =
        field_map json__ "businessGoals" BusinessGoals.of_json in
      make ?businessGoals ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rank of business goals based on priority."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ServerDetails =
  struct
    type nonrec t = ServerDetail.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:ServerDetail.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:ServerDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerDetails" ~of_json:ServerDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResult =
  struct
    type nonrec t = int
    let make i = 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 MaxResult" 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 ServerCriteria =
  struct
    type nonrec t =
      | NOT_DEFINED 
      | OS_NAME 
      | STRATEGY 
      | DESTINATION 
      | SERVER_ID 
      | ANALYSIS_STATUS 
      | ERROR_CATEGORY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_DEFINED -> "NOT_DEFINED"
      | OS_NAME -> "OS_NAME"
      | STRATEGY -> "STRATEGY"
      | DESTINATION -> "DESTINATION"
      | SERVER_ID -> "SERVER_ID"
      | ANALYSIS_STATUS -> "ANALYSIS_STATUS"
      | ERROR_CATEGORY -> "ERROR_CATEGORY"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_DEFINED" -> NOT_DEFINED
      | "OS_NAME" -> OS_NAME
      | "STRATEGY" -> STRATEGY
      | "DESTINATION" -> DESTINATION
      | "SERVER_ID" -> SERVER_ID
      | "ANALYSIS_STATUS" -> ANALYSIS_STATUS
      | "ERROR_CATEGORY" -> ERROR_CATEGORY
      | 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 ServerCriteria" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServerCriteria" j)
    let to_json = simple_to_json to_value
  end
module SortOrder =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module ListImportFileTaskInformation =
  struct
    type nonrec t = ImportFileTaskInformation.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:ImportFileTaskInformation.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:ImportFileTaskInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"ListImportFileTaskInformation"
        ~of_json:ImportFileTaskInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Collectors =
  struct
    type nonrec t = Collector.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:Collector.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:Collector.of_xml)
    let of_json j =
      list_of_json ~kind:"Collectors" ~of_json:Collector.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationComponentDetails =
  struct
    type nonrec t = ApplicationComponentDetail.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:ApplicationComponentDetail.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:ApplicationComponentDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationComponentDetails"
        ~of_json:ApplicationComponentDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceLinkedRoleLockClientException =
  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
       "Exception to indicate that the service-linked role (SLR) is locked."]
module ApplicationComponentCriteria =
  struct
    type nonrec t =
      | NOT_DEFINED 
      | APP_NAME 
      | SERVER_ID 
      | APP_TYPE 
      | STRATEGY 
      | DESTINATION 
      | ANALYSIS_STATUS 
      | ERROR_CATEGORY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_DEFINED -> "NOT_DEFINED"
      | APP_NAME -> "APP_NAME"
      | SERVER_ID -> "SERVER_ID"
      | APP_TYPE -> "APP_TYPE"
      | STRATEGY -> "STRATEGY"
      | DESTINATION -> "DESTINATION"
      | ANALYSIS_STATUS -> "ANALYSIS_STATUS"
      | ERROR_CATEGORY -> "ERROR_CATEGORY"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_DEFINED" -> NOT_DEFINED
      | "APP_NAME" -> APP_NAME
      | "SERVER_ID" -> SERVER_ID
      | "APP_TYPE" -> APP_TYPE
      | "STRATEGY" -> STRATEGY
      | "DESTINATION" -> DESTINATION
      | "ANALYSIS_STATUS" -> ANALYSIS_STATUS
      | "ERROR_CATEGORY" -> ERROR_CATEGORY
      | 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 ApplicationComponentCriteria"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApplicationComponentCriteria" j)
    let to_json = simple_to_json to_value
  end
module ListApplicationComponentsRequestFilterValueString =
  struct
    type nonrec t = string
    let context_ = "ListApplicationComponentsRequestFilterValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"ListApplicationComponentsRequestFilterValueString" j
    let to_json = simple_to_json to_value
  end
module AnalyzableServerSummaryList =
  struct
    type nonrec t = AnalyzableServerSummary.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:AnalyzableServerSummary.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:AnalyzableServerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AnalyzableServerSummaryList"
        ~of_json:AnalyzableServerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServerStrategies =
  struct
    type nonrec t = ServerStrategy.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:ServerStrategy.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:ServerStrategy.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerStrategies" ~of_json:ServerStrategy.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociatedApplications =
  struct
    type nonrec t = AssociatedApplication.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:AssociatedApplication.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:AssociatedApplication.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociatedApplications"
        ~of_json:AssociatedApplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendationReportDetails =
  struct
    type nonrec t =
      {
      completionTime: RecommendationReportTimeStamp.t option
        [@ocaml.doc
          "The time that the recommendation report generation task completes."];
      s3Bucket: String_.t option
        [@ocaml.doc "The S3 bucket where the report file is located."];
      s3Keys: S3Keys.t option
        [@ocaml.doc "The Amazon S3 key name of the report file."];
      startTime: RecommendationReportTimeStamp.t option
        [@ocaml.doc
          "The time that the recommendation report generation task starts."];
      status: RecommendationReportStatus.t option
        [@ocaml.doc
          "The status of the recommendation report generation task."];
      statusMessage: RecommendationReportStatusMessage.t option
        [@ocaml.doc
          "The status message for recommendation report generation."]}
    let make ?completionTime =
      fun ?s3Bucket ->
        fun ?s3Keys ->
          fun ?startTime ->
            fun ?status ->
              fun ?statusMessage ->
                fun () ->
                  {
                    completionTime;
                    s3Bucket;
                    s3Keys;
                    startTime;
                    status;
                    statusMessage
                  }
    let to_value x =
      structure_to_value
        [("completionTime",
           (Option.map x.completionTime
              ~f:RecommendationReportTimeStamp.to_value));
        ("s3Bucket", (Option.map x.s3Bucket ~f:String_.to_value));
        ("s3Keys", (Option.map x.s3Keys ~f:S3Keys.to_value));
        ("startTime",
          (Option.map x.startTime ~f:RecommendationReportTimeStamp.to_value));
        ("status",
          (Option.map x.status ~f:RecommendationReportStatus.to_value));
        ("statusMessage",
          (Option.map x.statusMessage
             ~f:RecommendationReportStatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:RecommendationReportStatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:RecommendationReportStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:RecommendationReportTimeStamp.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let s3Keys =
        (Option.map ~f:S3Keys.of_xml) (Xml.child xml_arg0 "s3Keys") in
      let s3Bucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "s3Bucket") in
      let completionTime =
        (Option.map ~f:RecommendationReportTimeStamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      make ?statusMessage ?status ?startTime ?s3Keys ?s3Bucket
        ?completionTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "statusMessage"
          RecommendationReportStatusMessage.of_json in
      let status =
        field_map json__ "status" RecommendationReportStatus.of_json in
      let startTime =
        field_map json__ "startTime" RecommendationReportTimeStamp.of_json in
      let s3Keys = field_map json__ "s3Keys" S3Keys.of_json in
      let s3Bucket = field_map json__ "s3Bucket" String_.of_json in
      let completionTime =
        field_map json__ "completionTime"
          RecommendationReportTimeStamp.of_json in
      make ?statusMessage ?status ?startTime ?s3Keys ?s3Bucket
        ?completionTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about a recommendation report."]
module AssessmentSummary =
  struct
    type nonrec t =
      {
      antipatternReportS3Object: S3Object.t option
        [@ocaml.doc
          "The Amazon S3 object containing the anti-pattern report."];
      antipatternReportStatus: AntipatternReportStatus.t option
        [@ocaml.doc "The status of the anti-pattern report."];
      antipatternReportStatusMessage: StatusMessage.t option
        [@ocaml.doc "The status message of the anti-pattern report."];
      lastAnalyzedTimestamp: TimeStamp.t option
        [@ocaml.doc "The time the assessment was performed."];
      listAntipatternSeveritySummary: ListAntipatternSeveritySummary.t option
        [@ocaml.doc "List of AntipatternSeveritySummary."];
      listApplicationComponentStatusSummary:
        ListApplicationComponentStatusSummary.t option
        [@ocaml.doc
          "List of status summaries of the analyzed application components."];
      listApplicationComponentStrategySummary: ListStrategySummary.t option
        [@ocaml.doc "List of ApplicationComponentStrategySummary."];
      listApplicationComponentSummary:
        ListApplicationComponentSummary.t option
        [@ocaml.doc "List of ApplicationComponentSummary."];
      listServerStatusSummary: ListServerStatusSummary.t option
        [@ocaml.doc "List of status summaries of the analyzed servers."];
      listServerStrategySummary: ListStrategySummary.t option
        [@ocaml.doc "List of ServerStrategySummary."];
      listServerSummary: ListServerSummary.t option
        [@ocaml.doc "List of ServerSummary."]}
    let make ?antipatternReportS3Object =
      fun ?antipatternReportStatus ->
        fun ?antipatternReportStatusMessage ->
          fun ?lastAnalyzedTimestamp ->
            fun ?listAntipatternSeveritySummary ->
              fun ?listApplicationComponentStatusSummary ->
                fun ?listApplicationComponentStrategySummary ->
                  fun ?listApplicationComponentSummary ->
                    fun ?listServerStatusSummary ->
                      fun ?listServerStrategySummary ->
                        fun ?listServerSummary ->
                          fun () ->
                            {
                              antipatternReportS3Object;
                              antipatternReportStatus;
                              antipatternReportStatusMessage;
                              lastAnalyzedTimestamp;
                              listAntipatternSeveritySummary;
                              listApplicationComponentStatusSummary;
                              listApplicationComponentStrategySummary;
                              listApplicationComponentSummary;
                              listServerStatusSummary;
                              listServerStrategySummary;
                              listServerSummary
                            }
    let to_value x =
      structure_to_value
        [("antipatternReportS3Object",
           (Option.map x.antipatternReportS3Object ~f:S3Object.to_value));
        ("antipatternReportStatus",
          (Option.map x.antipatternReportStatus
             ~f:AntipatternReportStatus.to_value));
        ("antipatternReportStatusMessage",
          (Option.map x.antipatternReportStatusMessage
             ~f:StatusMessage.to_value));
        ("lastAnalyzedTimestamp",
          (Option.map x.lastAnalyzedTimestamp ~f:TimeStamp.to_value));
        ("listAntipatternSeveritySummary",
          (Option.map x.listAntipatternSeveritySummary
             ~f:ListAntipatternSeveritySummary.to_value));
        ("listApplicationComponentStatusSummary",
          (Option.map x.listApplicationComponentStatusSummary
             ~f:ListApplicationComponentStatusSummary.to_value));
        ("listApplicationComponentStrategySummary",
          (Option.map x.listApplicationComponentStrategySummary
             ~f:ListStrategySummary.to_value));
        ("listApplicationComponentSummary",
          (Option.map x.listApplicationComponentSummary
             ~f:ListApplicationComponentSummary.to_value));
        ("listServerStatusSummary",
          (Option.map x.listServerStatusSummary
             ~f:ListServerStatusSummary.to_value));
        ("listServerStrategySummary",
          (Option.map x.listServerStrategySummary
             ~f:ListStrategySummary.to_value));
        ("listServerSummary",
          (Option.map x.listServerSummary ~f:ListServerSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listServerSummary =
        (Option.map ~f:ListServerSummary.of_xml)
          (Xml.child xml_arg0 "listServerSummary") in
      let listServerStrategySummary =
        (Option.map ~f:ListStrategySummary.of_xml)
          (Xml.child xml_arg0 "listServerStrategySummary") in
      let listServerStatusSummary =
        (Option.map ~f:ListServerStatusSummary.of_xml)
          (Xml.child xml_arg0 "listServerStatusSummary") in
      let listApplicationComponentSummary =
        (Option.map ~f:ListApplicationComponentSummary.of_xml)
          (Xml.child xml_arg0 "listApplicationComponentSummary") in
      let listApplicationComponentStrategySummary =
        (Option.map ~f:ListStrategySummary.of_xml)
          (Xml.child xml_arg0 "listApplicationComponentStrategySummary") in
      let listApplicationComponentStatusSummary =
        (Option.map ~f:ListApplicationComponentStatusSummary.of_xml)
          (Xml.child xml_arg0 "listApplicationComponentStatusSummary") in
      let listAntipatternSeveritySummary =
        (Option.map ~f:ListAntipatternSeveritySummary.of_xml)
          (Xml.child xml_arg0 "listAntipatternSeveritySummary") in
      let lastAnalyzedTimestamp =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "lastAnalyzedTimestamp") in
      let antipatternReportStatusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatusMessage") in
      let antipatternReportStatus =
        (Option.map ~f:AntipatternReportStatus.of_xml)
          (Xml.child xml_arg0 "antipatternReportStatus") in
      let antipatternReportS3Object =
        (Option.map ~f:S3Object.of_xml)
          (Xml.child xml_arg0 "antipatternReportS3Object") in
      make ?listServerSummary ?listServerStrategySummary
        ?listServerStatusSummary ?listApplicationComponentSummary
        ?listApplicationComponentStrategySummary
        ?listApplicationComponentStatusSummary
        ?listAntipatternSeveritySummary ?lastAnalyzedTimestamp
        ?antipatternReportStatusMessage ?antipatternReportStatus
        ?antipatternReportS3Object ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listServerSummary =
        field_map json__ "listServerSummary" ListServerSummary.of_json in
      let listServerStrategySummary =
        field_map json__ "listServerStrategySummary"
          ListStrategySummary.of_json in
      let listServerStatusSummary =
        field_map json__ "listServerStatusSummary"
          ListServerStatusSummary.of_json in
      let listApplicationComponentSummary =
        field_map json__ "listApplicationComponentSummary"
          ListApplicationComponentSummary.of_json in
      let listApplicationComponentStrategySummary =
        field_map json__ "listApplicationComponentStrategySummary"
          ListStrategySummary.of_json in
      let listApplicationComponentStatusSummary =
        field_map json__ "listApplicationComponentStatusSummary"
          ListApplicationComponentStatusSummary.of_json in
      let listAntipatternSeveritySummary =
        field_map json__ "listAntipatternSeveritySummary"
          ListAntipatternSeveritySummary.of_json in
      let lastAnalyzedTimestamp =
        field_map json__ "lastAnalyzedTimestamp" TimeStamp.of_json in
      let antipatternReportStatusMessage =
        field_map json__ "antipatternReportStatusMessage"
          StatusMessage.of_json in
      let antipatternReportStatus =
        field_map json__ "antipatternReportStatus"
          AntipatternReportStatus.of_json in
      let antipatternReportS3Object =
        field_map json__ "antipatternReportS3Object" S3Object.of_json in
      make ?listServerSummary ?listServerStrategySummary
        ?listServerStatusSummary ?listApplicationComponentSummary
        ?listApplicationComponentStrategySummary
        ?listApplicationComponentStatusSummary
        ?listAntipatternSeveritySummary ?lastAnalyzedTimestamp
        ?antipatternReportStatusMessage ?antipatternReportStatus
        ?antipatternReportS3Object ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the summary of the assessment results."]
module DependencyException =
  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 "Dependency encountered an error."]
module DataCollectionDetails =
  struct
    type nonrec t =
      {
      completionTime: TimeStamp.t option
        [@ocaml.doc "The time the assessment completes."];
      failed: Integer.t option
        [@ocaml.doc "The number of failed servers in the assessment."];
      inProgress: Integer.t option
        [@ocaml.doc
          "The number of servers with the assessment status IN_PROGESS."];
      servers: Integer.t option
        [@ocaml.doc "The total number of servers in the assessment."];
      startTime: TimeStamp.t option
        [@ocaml.doc "The start time of assessment."];
      status: AssessmentStatus.t option
        [@ocaml.doc "The status of the assessment."];
      statusMessage: AssessmentStatusMessage.t option
        [@ocaml.doc "The status message of the assessment."];
      success: Integer.t option
        [@ocaml.doc "The number of successful servers in the assessment."]}
    let make ?completionTime =
      fun ?failed ->
        fun ?inProgress ->
          fun ?servers ->
            fun ?startTime ->
              fun ?status ->
                fun ?statusMessage ->
                  fun ?success ->
                    fun () ->
                      {
                        completionTime;
                        failed;
                        inProgress;
                        servers;
                        startTime;
                        status;
                        statusMessage;
                        success
                      }
    let to_value x =
      structure_to_value
        [("completionTime",
           (Option.map x.completionTime ~f:TimeStamp.to_value));
        ("failed", (Option.map x.failed ~f:Integer.to_value));
        ("inProgress", (Option.map x.inProgress ~f:Integer.to_value));
        ("servers", (Option.map x.servers ~f:Integer.to_value));
        ("startTime", (Option.map x.startTime ~f:TimeStamp.to_value));
        ("status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:AssessmentStatusMessage.to_value));
        ("success", (Option.map x.success ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let success =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "success") in
      let statusMessage =
        (Option.map ~f:AssessmentStatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:TimeStamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let servers =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "servers") in
      let inProgress =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "inProgress") in
      let failed =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "failed") in
      let completionTime =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      make ?success ?statusMessage ?status ?startTime ?servers ?inProgress
        ?failed ?completionTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let success = field_map json__ "success" Integer.of_json in
      let statusMessage =
        field_map json__ "statusMessage" AssessmentStatusMessage.of_json in
      let status = field_map json__ "status" AssessmentStatus.of_json in
      let startTime = field_map json__ "startTime" TimeStamp.of_json in
      let servers = field_map json__ "servers" Integer.of_json in
      let inProgress = field_map json__ "inProgress" Integer.of_json in
      let failed = field_map json__ "failed" Integer.of_json in
      let completionTime =
        field_map json__ "completionTime" TimeStamp.of_json in
      make ?success ?statusMessage ?status ?startTime ?servers ?inProgress
        ?failed ?completionTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information about an assessment."]
module ApplicationComponentStrategies =
  struct
    type nonrec t = ApplicationComponentStrategy.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:ApplicationComponentStrategy.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:ApplicationComponentStrategy.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationComponentStrategies"
        ~of_json:ApplicationComponentStrategy.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociatedServerIDs =
  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:"AssociatedServerIDs" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateServerConfigResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of the specified server."]
module UpdateServerConfigRequest =
  struct
    type nonrec t =
      {
      serverId: ServerId.t [@ocaml.doc "The ID of the server."];
      strategyOption: StrategyOption.t option
        [@ocaml.doc
          "The preferred strategy options for the application component. See the response from GetServerStrategies."]}
    let context_ = "UpdateServerConfigRequest"
    let make ?strategyOption =
      fun ~serverId -> fun () -> { strategyOption; serverId }
    let to_value x =
      structure_to_value
        [("serverId", (Some (ServerId.to_value x.serverId)));
        ("strategyOption",
          (Option.map x.strategyOption ~f:StrategyOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let strategyOption =
        (Option.map ~f:StrategyOption.of_xml)
          (Xml.child xml_arg0 "strategyOption") in
      let serverId =
        ServerId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "serverId") in
      make ?strategyOption ~serverId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let strategyOption =
        field_map json__ "strategyOption" StrategyOption.of_json in
      let serverId = field_map_exn json__ "serverId" ServerId.of_json in
      make ?strategyOption ~serverId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of the specified server."]
module UpdateApplicationComponentConfigResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of an application component."]
module UpdateApplicationComponentConfigRequest =
  struct
    type nonrec t =
      {
      appType: AppType.t option [@ocaml.doc "The type of known component."];
      applicationComponentId: ApplicationComponentId.t
        [@ocaml.doc
          "The ID of the application component. The ID is unique within an AWS account."];
      configureOnly: Boolean.t option
        [@ocaml.doc
          "Update the configuration request of an application component. If it is set to true, the source code and/or database credentials are updated. If it is set to false, the source code and/or database credentials are updated and an analysis is initiated."];
      inclusionStatus: InclusionStatus.t option
        [@ocaml.doc
          "Indicates whether the application component has been included for server recommendation or not."];
      secretsManagerKey: SecretsManagerKey.t option
        [@ocaml.doc "Database credentials."];
      sourceCodeList: SourceCodeList.t option
        [@ocaml.doc
          "The list of source code configurations to update for the application component."];
      strategyOption: StrategyOption.t option
        [@ocaml.doc
          "The preferred strategy options for the application component. Use values from the GetApplicationComponentStrategies response."]}
    let context_ = "UpdateApplicationComponentConfigRequest"
    let make ?appType =
      fun ?configureOnly ->
        fun ?inclusionStatus ->
          fun ?secretsManagerKey ->
            fun ?sourceCodeList ->
              fun ?strategyOption ->
                fun ~applicationComponentId ->
                  fun () ->
                    {
                      appType;
                      configureOnly;
                      inclusionStatus;
                      secretsManagerKey;
                      sourceCodeList;
                      strategyOption;
                      applicationComponentId
                    }
    let to_value x =
      structure_to_value
        [("appType", (Option.map x.appType ~f:AppType.to_value));
        ("applicationComponentId",
          (Some (ApplicationComponentId.to_value x.applicationComponentId)));
        ("configureOnly", (Option.map x.configureOnly ~f:Boolean.to_value));
        ("inclusionStatus",
          (Option.map x.inclusionStatus ~f:InclusionStatus.to_value));
        ("secretsManagerKey",
          (Option.map x.secretsManagerKey ~f:SecretsManagerKey.to_value));
        ("sourceCodeList",
          (Option.map x.sourceCodeList ~f:SourceCodeList.to_value));
        ("strategyOption",
          (Option.map x.strategyOption ~f:StrategyOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let strategyOption =
        (Option.map ~f:StrategyOption.of_xml)
          (Xml.child xml_arg0 "strategyOption") in
      let sourceCodeList =
        (Option.map ~f:SourceCodeList.of_xml)
          (Xml.child xml_arg0 "sourceCodeList") in
      let secretsManagerKey =
        (Option.map ~f:SecretsManagerKey.of_xml)
          (Xml.child xml_arg0 "secretsManagerKey") in
      let inclusionStatus =
        (Option.map ~f:InclusionStatus.of_xml)
          (Xml.child xml_arg0 "inclusionStatus") in
      let configureOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "configureOnly") in
      let applicationComponentId =
        ApplicationComponentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "applicationComponentId") in
      let appType =
        (Option.map ~f:AppType.of_xml) (Xml.child xml_arg0 "appType") in
      make ?strategyOption ?sourceCodeList ?secretsManagerKey
        ?inclusionStatus ?configureOnly ~applicationComponentId ?appType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let strategyOption =
        field_map json__ "strategyOption" StrategyOption.of_json in
      let sourceCodeList =
        field_map json__ "sourceCodeList" SourceCodeList.of_json in
      let secretsManagerKey =
        field_map json__ "secretsManagerKey" SecretsManagerKey.of_json in
      let inclusionStatus =
        field_map json__ "inclusionStatus" InclusionStatus.of_json in
      let configureOnly = field_map json__ "configureOnly" Boolean.of_json in
      let applicationComponentId =
        field_map_exn json__ "applicationComponentId"
          ApplicationComponentId.of_json in
      let appType = field_map json__ "appType" AppType.of_json in
      make ?strategyOption ?sourceCodeList ?secretsManagerKey
        ?inclusionStatus ?configureOnly ~applicationComponentId ?appType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of an application component."]
module StopAssessmentResponse =
  struct
    type nonrec t = unit
    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 () = ()
    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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the assessment of an on-premises environment."]
module StopAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: AsyncTaskId.t
        [@ocaml.doc "The assessmentId returned by StartAssessment."]}
    let context_ = "StopAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (AsyncTaskId.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        AsyncTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId =
        field_map_exn json__ "assessmentId" AsyncTaskId.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the assessment of an on-premises environment."]
module StartRecommendationReportGenerationResponse =
  struct
    type nonrec t =
      {
      id: RecommendationTaskId.t option
        [@ocaml.doc "The ID of the recommendation report generation task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun () -> { id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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
        [("id", (Option.map x.id ~f:RecommendationTaskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        (Option.map ~f:RecommendationTaskId.of_xml) (Xml.child xml_arg0 "id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" RecommendationTaskId.of_json in
      make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts generating a recommendation report."]
module StartRecommendationReportGenerationRequest =
  struct
    type nonrec t =
      {
      groupIdFilter: GroupIds.t option
        [@ocaml.doc
          "Groups the resources in the recommendation report with a unique name."];
      outputFormat: OutputFormat.t option
        [@ocaml.doc
          "The output format for the recommendation report file. The default format is Microsoft Excel."]}
    let make ?groupIdFilter =
      fun ?outputFormat -> fun () -> { groupIdFilter; outputFormat }
    let to_value x =
      structure_to_value
        [("groupIdFilter", (Option.map x.groupIdFilter ~f:GroupIds.to_value));
        ("outputFormat",
          (Option.map x.outputFormat ~f:OutputFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputFormat =
        (Option.map ~f:OutputFormat.of_xml)
          (Xml.child xml_arg0 "outputFormat") in
      let groupIdFilter =
        (Option.map ~f:GroupIds.of_xml) (Xml.child xml_arg0 "groupIdFilter") in
      make ?outputFormat ?groupIdFilter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputFormat = field_map json__ "outputFormat" OutputFormat.of_json in
      let groupIdFilter = field_map json__ "groupIdFilter" GroupIds.of_json in
      make ?outputFormat ?groupIdFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts generating a recommendation report."]
module StartImportFileTaskResponse =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "The ID for a specific import task. The ID is unique within an AWS account."]}
    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 ?id = fun () -> { id }
    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 [("id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" String_.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts a file import."]
module StartImportFileTaskRequest =
  struct
    type nonrec t =
      {
      s3Bucket: ImportS3Bucket.t
        [@ocaml.doc
          "The S3 bucket where the import file is located. The bucket name is required to begin with migrationhub-strategy-."];
      dataSourceType: DataSourceType.t option
        [@ocaml.doc
          "Specifies the source that the servers are coming from. By default, Strategy Recommendations assumes that the servers specified in the import file are available in AWS Application Discovery Service."];
      groupId: GroupIds.t option
        [@ocaml.doc
          "Groups the resources in the import file together with a unique name. This ID can be as filter in ListApplicationComponents and ListServers."];
      name: StartImportFileTaskRequestNameString.t
        [@ocaml.doc "A descriptive name for the request."];
      s3bucketForReportData:
        StartImportFileTaskRequestS3bucketForReportDataString.t option
        [@ocaml.doc
          "The S3 bucket where Strategy Recommendations uploads import results. The bucket name is required to begin with migrationhub-strategy-."];
      s3key: String_.t
        [@ocaml.doc "The Amazon S3 key name of the import file."]}
    let context_ = "StartImportFileTaskRequest"
    let make ?dataSourceType =
      fun ?groupId ->
        fun ?s3bucketForReportData ->
          fun ~s3Bucket ->
            fun ~name ->
              fun ~s3key ->
                fun () ->
                  {
                    dataSourceType;
                    groupId;
                    s3bucketForReportData;
                    s3Bucket;
                    name;
                    s3key
                  }
    let to_value x =
      structure_to_value
        [("S3Bucket", (Some (ImportS3Bucket.to_value x.s3Bucket)));
        ("dataSourceType",
          (Option.map x.dataSourceType ~f:DataSourceType.to_value));
        ("groupId", (Option.map x.groupId ~f:GroupIds.to_value));
        ("name",
          (Some (StartImportFileTaskRequestNameString.to_value x.name)));
        ("s3bucketForReportData",
          (Option.map x.s3bucketForReportData
             ~f:StartImportFileTaskRequestS3bucketForReportDataString.to_value));
        ("s3key", (Some (String_.to_value x.s3key)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3key =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "s3key") in
      let s3bucketForReportData =
        (Option.map
           ~f:StartImportFileTaskRequestS3bucketForReportDataString.of_xml)
          (Xml.child xml_arg0 "s3bucketForReportData") in
      let name =
        StartImportFileTaskRequestNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let groupId =
        (Option.map ~f:GroupIds.of_xml) (Xml.child xml_arg0 "groupId") in
      let dataSourceType =
        (Option.map ~f:DataSourceType.of_xml)
          (Xml.child xml_arg0 "dataSourceType") in
      let s3Bucket =
        ImportS3Bucket.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Bucket") in
      make ~s3key ?s3bucketForReportData ~name ?groupId ?dataSourceType
        ~s3Bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3key = field_map_exn json__ "s3key" String_.of_json in
      let s3bucketForReportData =
        field_map json__ "s3bucketForReportData"
          StartImportFileTaskRequestS3bucketForReportDataString.of_json in
      let name =
        field_map_exn json__ "name"
          StartImportFileTaskRequestNameString.of_json in
      let groupId = field_map json__ "groupId" GroupIds.of_json in
      let dataSourceType =
        field_map json__ "dataSourceType" DataSourceType.of_json in
      let s3Bucket = field_map_exn json__ "S3Bucket" ImportS3Bucket.of_json in
      make ~s3key ?s3bucketForReportData ~name ?groupId ?dataSourceType
        ~s3Bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts a file import."]
module StartAssessmentResponse =
  struct
    type nonrec t =
      {
      assessmentId: AsyncTaskId.t option
        [@ocaml.doc "The ID of the assessment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentId = fun () -> { assessmentId }
    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)
      | 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)
      | 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))]
      | `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
        [("assessmentId",
           (Option.map x.assessmentId ~f:AsyncTaskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        (Option.map ~f:AsyncTaskId.of_xml)
          (Xml.child xml_arg0 "assessmentId") in
      make ?assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map json__ "assessmentId" AsyncTaskId.of_json in
      make ?assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the assessment of an on-premises environment."]
module StartAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentDataSourceType: AssessmentDataSourceType.t option
        [@ocaml.doc "The data source type of an assessment to be started."];
      assessmentTargets: AssessmentTargets.t option
        [@ocaml.doc "List of criteria for assessment."];
      s3bucketForAnalysisData:
        StartAssessmentRequestS3bucketForAnalysisDataString.t option
        [@ocaml.doc
          "The S3 bucket used by the collectors to send analysis data to the service. The bucket name must begin with migrationhub-strategy-."];
      s3bucketForReportData:
        StartAssessmentRequestS3bucketForReportDataString.t option
        [@ocaml.doc
          "The S3 bucket where all the reports generated by the service are stored. The bucket name must begin with migrationhub-strategy-."]}
    let make ?assessmentDataSourceType =
      fun ?assessmentTargets ->
        fun ?s3bucketForAnalysisData ->
          fun ?s3bucketForReportData ->
            fun () ->
              {
                assessmentDataSourceType;
                assessmentTargets;
                s3bucketForAnalysisData;
                s3bucketForReportData
              }
    let to_value x =
      structure_to_value
        [("assessmentDataSourceType",
           (Option.map x.assessmentDataSourceType
              ~f:AssessmentDataSourceType.to_value));
        ("assessmentTargets",
          (Option.map x.assessmentTargets ~f:AssessmentTargets.to_value));
        ("s3bucketForAnalysisData",
          (Option.map x.s3bucketForAnalysisData
             ~f:StartAssessmentRequestS3bucketForAnalysisDataString.to_value));
        ("s3bucketForReportData",
          (Option.map x.s3bucketForReportData
             ~f:StartAssessmentRequestS3bucketForReportDataString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3bucketForReportData =
        (Option.map
           ~f:StartAssessmentRequestS3bucketForReportDataString.of_xml)
          (Xml.child xml_arg0 "s3bucketForReportData") in
      let s3bucketForAnalysisData =
        (Option.map
           ~f:StartAssessmentRequestS3bucketForAnalysisDataString.of_xml)
          (Xml.child xml_arg0 "s3bucketForAnalysisData") in
      let assessmentTargets =
        (Option.map ~f:AssessmentTargets.of_xml)
          (Xml.child xml_arg0 "assessmentTargets") in
      let assessmentDataSourceType =
        (Option.map ~f:AssessmentDataSourceType.of_xml)
          (Xml.child xml_arg0 "assessmentDataSourceType") in
      make ?s3bucketForReportData ?s3bucketForAnalysisData ?assessmentTargets
        ?assessmentDataSourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3bucketForReportData =
        field_map json__ "s3bucketForReportData"
          StartAssessmentRequestS3bucketForReportDataString.of_json in
      let s3bucketForAnalysisData =
        field_map json__ "s3bucketForAnalysisData"
          StartAssessmentRequestS3bucketForAnalysisDataString.of_json in
      let assessmentTargets =
        field_map json__ "assessmentTargets" AssessmentTargets.of_json in
      let assessmentDataSourceType =
        field_map json__ "assessmentDataSourceType"
          AssessmentDataSourceType.of_json in
      make ?s3bucketForReportData ?s3bucketForAnalysisData ?assessmentTargets
        ?assessmentDataSourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the assessment of an on-premises environment."]
module PutPortfolioPreferencesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Saves the specified migration and modernization preferences."]
module PutPortfolioPreferencesRequest =
  struct
    type nonrec t =
      {
      applicationMode: ApplicationMode.t option
        [@ocaml.doc "The classification for application component types."];
      applicationPreferences: ApplicationPreferences.t option
        [@ocaml.doc
          "The transformation preferences for non-database applications."];
      databasePreferences: DatabasePreferences.t option
        [@ocaml.doc
          "The transformation preferences for database applications."];
      prioritizeBusinessGoals: PrioritizeBusinessGoals.t option
        [@ocaml.doc "The rank of the business goals based on priority."]}
    let make ?applicationMode =
      fun ?applicationPreferences ->
        fun ?databasePreferences ->
          fun ?prioritizeBusinessGoals ->
            fun () ->
              {
                applicationMode;
                applicationPreferences;
                databasePreferences;
                prioritizeBusinessGoals
              }
    let to_value x =
      structure_to_value
        [("applicationMode",
           (Option.map x.applicationMode ~f:ApplicationMode.to_value));
        ("applicationPreferences",
          (Option.map x.applicationPreferences
             ~f:ApplicationPreferences.to_value));
        ("databasePreferences",
          (Option.map x.databasePreferences ~f:DatabasePreferences.to_value));
        ("prioritizeBusinessGoals",
          (Option.map x.prioritizeBusinessGoals
             ~f:PrioritizeBusinessGoals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prioritizeBusinessGoals =
        (Option.map ~f:PrioritizeBusinessGoals.of_xml)
          (Xml.child xml_arg0 "prioritizeBusinessGoals") in
      let databasePreferences =
        (Option.map ~f:DatabasePreferences.of_xml)
          (Xml.child xml_arg0 "databasePreferences") in
      let applicationPreferences =
        (Option.map ~f:ApplicationPreferences.of_xml)
          (Xml.child xml_arg0 "applicationPreferences") in
      let applicationMode =
        (Option.map ~f:ApplicationMode.of_xml)
          (Xml.child xml_arg0 "applicationMode") in
      make ?prioritizeBusinessGoals ?databasePreferences
        ?applicationPreferences ?applicationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prioritizeBusinessGoals =
        field_map json__ "prioritizeBusinessGoals"
          PrioritizeBusinessGoals.of_json in
      let databasePreferences =
        field_map json__ "databasePreferences" DatabasePreferences.of_json in
      let applicationPreferences =
        field_map json__ "applicationPreferences"
          ApplicationPreferences.of_json in
      let applicationMode =
        field_map json__ "applicationMode" ApplicationMode.of_json in
      make ?prioritizeBusinessGoals ?databasePreferences
        ?applicationPreferences ?applicationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Saves the specified migration and modernization preferences."]
module ListServersResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or null if there are no more results."];
      serverInfos: ServerDetails.t option
        [@ocaml.doc
          "The list of servers with detailed information about each server."]}
    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 ?nextToken =
      fun ?serverInfos -> fun () -> { nextToken; serverInfos }
    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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("serverInfos", (Option.map x.serverInfos ~f:ServerDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverInfos =
        (Option.map ~f:ServerDetails.of_xml)
          (Xml.child xml_arg0 "serverInfos") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?serverInfos ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverInfos = field_map json__ "serverInfos" ServerDetails.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?serverInfos ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all the servers."]
module ListServersRequest =
  struct
    type nonrec t =
      {
      filterValue: String_.t option
        [@ocaml.doc
          "Specifies the filter value, which is based on the type of server criteria. For example, if serverCriteria is OS_NAME, and the filterValue is equal to WindowsServer, then ListServers returns all of the servers matching the OS name WindowsServer."];
      groupIdFilter: GroupIds.t option
        [@ocaml.doc "Specifies the group ID to filter on."];
      maxResults: MaxResult.t option
        [@ocaml.doc
          "The maximum number of items to include in the response. The maximum value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."];
      serverCriteria: ServerCriteria.t option
        [@ocaml.doc "Criteria for filtering servers."];
      sort: SortOrder.t option
        [@ocaml.doc
          "Specifies whether to sort by ascending (ASC) or descending (DESC) order."]}
    let make ?filterValue =
      fun ?groupIdFilter ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ?serverCriteria ->
              fun ?sort ->
                fun () ->
                  {
                    filterValue;
                    groupIdFilter;
                    maxResults;
                    nextToken;
                    serverCriteria;
                    sort
                  }
    let to_value x =
      structure_to_value
        [("filterValue", (Option.map x.filterValue ~f:String_.to_value));
        ("groupIdFilter", (Option.map x.groupIdFilter ~f:GroupIds.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResult.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("serverCriteria",
          (Option.map x.serverCriteria ~f:ServerCriteria.to_value));
        ("sort", (Option.map x.sort ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sort = (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sort") in
      let serverCriteria =
        (Option.map ~f:ServerCriteria.of_xml)
          (Xml.child xml_arg0 "serverCriteria") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResult.of_xml) (Xml.child xml_arg0 "maxResults") in
      let groupIdFilter =
        (Option.map ~f:GroupIds.of_xml) (Xml.child xml_arg0 "groupIdFilter") in
      let filterValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "filterValue") in
      make ?sort ?serverCriteria ?nextToken ?maxResults ?groupIdFilter
        ?filterValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sort = field_map json__ "sort" SortOrder.of_json in
      let serverCriteria =
        field_map json__ "serverCriteria" ServerCriteria.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResult.of_json in
      let groupIdFilter = field_map json__ "groupIdFilter" GroupIds.of_json in
      let filterValue = field_map json__ "filterValue" String_.of_json in
      make ?sort ?serverCriteria ?nextToken ?maxResults ?groupIdFilter
        ?filterValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all the servers."]
module ListImportFileTaskResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or null if there are no more results."];
      taskInfos: ListImportFileTaskInformation.t option
        [@ocaml.doc "Lists information about the files you import."]}
    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 ?nextToken =
      fun ?taskInfos -> fun () -> { nextToken; taskInfos }
    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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("taskInfos",
          (Option.map x.taskInfos ~f:ListImportFileTaskInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskInfos =
        (Option.map ~f:ListImportFileTaskInformation.of_xml)
          (Xml.child xml_arg0 "taskInfos") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?taskInfos ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskInfos =
        field_map json__ "taskInfos" ListImportFileTaskInformation.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?taskInfos ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of all the imports performed."]
module ListImportFileTaskRequest =
  struct
    type nonrec t =
      {
      maxResults: Integer.t option
        [@ocaml.doc
          "The total number of items to return. The maximum value is 100."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:Integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults = field_map json__ "maxResults" Integer.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of all the imports performed."]
module ListCollectorsResponse =
  struct
    type nonrec t =
      {
      collectors: Collectors.t option
        [@ocaml.doc "The list of all the installed collectors."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or 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 ?collectors =
      fun ?nextToken -> fun () -> { collectors; 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
        [("Collectors", (Option.map x.collectors ~f:Collectors.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 collectors =
        (Option.map ~f:Collectors.of_xml) (Xml.child xml_arg0 "Collectors") in
      make ?nextToken ?collectors ()
    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 collectors = field_map json__ "Collectors" Collectors.of_json in
      make ?nextToken ?collectors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of all the installed collectors."]
module ListCollectorsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResult.t option
        [@ocaml.doc
          "The maximum number of items to include in the response. The maximum value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResult.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:MaxResult.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    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" MaxResult.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of all the installed collectors."]
module ListApplicationComponentsResponse =
  struct
    type nonrec t =
      {
      applicationComponentInfos: ApplicationComponentDetails.t option
        [@ocaml.doc
          "The list of application components with detailed information about each component."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or null if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceLinkedRoleLockClientException of
          ServiceLinkedRoleLockClientException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationComponentInfos =
      fun ?nextToken -> fun () -> { applicationComponentInfos; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceLinkedRoleLockClientException" ->
          `ServiceLinkedRoleLockClientException
            (ServiceLinkedRoleLockClientException.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)
      | "ServiceLinkedRoleLockClientException" ->
          `ServiceLinkedRoleLockClientException
            (ServiceLinkedRoleLockClientException.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))]
      | `ServiceLinkedRoleLockClientException e ->
          `Assoc
            [("error", (`String "ServiceLinkedRoleLockClientException"));
            ("details", (ServiceLinkedRoleLockClientException.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
        [("applicationComponentInfos",
           (Option.map x.applicationComponentInfos
              ~f:ApplicationComponentDetails.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 applicationComponentInfos =
        (Option.map ~f:ApplicationComponentDetails.of_xml)
          (Xml.child xml_arg0 "applicationComponentInfos") in
      make ?nextToken ?applicationComponentInfos ()
    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 applicationComponentInfos =
        field_map json__ "applicationComponentInfos"
          ApplicationComponentDetails.of_json in
      make ?nextToken ?applicationComponentInfos ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all the application components (processes)."]
module ListApplicationComponentsRequest =
  struct
    type nonrec t =
      {
      applicationComponentCriteria: ApplicationComponentCriteria.t option
        [@ocaml.doc
          "Criteria for filtering the list of application components."];
      filterValue: ListApplicationComponentsRequestFilterValueString.t option
        [@ocaml.doc
          "Specify the value based on the application component criteria type. For example, if applicationComponentCriteria is set to SERVER_ID and filterValue is set to server1, then ListApplicationComponents returns all the application components running on server1."];
      groupIdFilter: GroupIds.t option
        [@ocaml.doc "The group ID specified in to filter on."];
      maxResults: MaxResult.t option
        [@ocaml.doc
          "The maximum number of items to include in the response. The maximum value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."];
      sort: SortOrder.t option
        [@ocaml.doc
          "Specifies whether to sort by ascending (ASC) or descending (DESC) order."]}
    let make ?applicationComponentCriteria =
      fun ?filterValue ->
        fun ?groupIdFilter ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?sort ->
                fun () ->
                  {
                    applicationComponentCriteria;
                    filterValue;
                    groupIdFilter;
                    maxResults;
                    nextToken;
                    sort
                  }
    let to_value x =
      structure_to_value
        [("applicationComponentCriteria",
           (Option.map x.applicationComponentCriteria
              ~f:ApplicationComponentCriteria.to_value));
        ("filterValue",
          (Option.map x.filterValue
             ~f:ListApplicationComponentsRequestFilterValueString.to_value));
        ("groupIdFilter", (Option.map x.groupIdFilter ~f:GroupIds.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResult.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sort", (Option.map x.sort ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sort = (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sort") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResult.of_xml) (Xml.child xml_arg0 "maxResults") in
      let groupIdFilter =
        (Option.map ~f:GroupIds.of_xml) (Xml.child xml_arg0 "groupIdFilter") in
      let filterValue =
        (Option.map
           ~f:ListApplicationComponentsRequestFilterValueString.of_xml)
          (Xml.child xml_arg0 "filterValue") in
      let applicationComponentCriteria =
        (Option.map ~f:ApplicationComponentCriteria.of_xml)
          (Xml.child xml_arg0 "applicationComponentCriteria") in
      make ?sort ?nextToken ?maxResults ?groupIdFilter ?filterValue
        ?applicationComponentCriteria ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sort = field_map json__ "sort" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResult.of_json in
      let groupIdFilter = field_map json__ "groupIdFilter" GroupIds.of_json in
      let filterValue =
        field_map json__ "filterValue"
          ListApplicationComponentsRequestFilterValueString.of_json in
      let applicationComponentCriteria =
        field_map json__ "applicationComponentCriteria"
          ApplicationComponentCriteria.of_json in
      make ?sort ?nextToken ?maxResults ?groupIdFilter ?filterValue
        ?applicationComponentCriteria ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all the application components (processes)."]
module ListAnalyzableServersResponse =
  struct
    type nonrec t =
      {
      analyzableServers: AnalyzableServerSummaryList.t option
        [@ocaml.doc
          "The list of analyzable servers with summary information about each server."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or 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 ?analyzableServers =
      fun ?nextToken -> fun () -> { analyzableServers; 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
        [("analyzableServers",
           (Option.map x.analyzableServers
              ~f:AnalyzableServerSummaryList.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 analyzableServers =
        (Option.map ~f:AnalyzableServerSummaryList.of_xml)
          (Xml.child xml_arg0 "analyzableServers") in
      make ?nextToken ?analyzableServers ()
    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 analyzableServers =
        field_map json__ "analyzableServers"
          AnalyzableServerSummaryList.of_json in
      make ?nextToken ?analyzableServers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents output for ListAnalyzableServers operation."]
module ListAnalyzableServersRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResult.t option
        [@ocaml.doc
          "The maximum number of items to include in the response. The maximum value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."];
      sort: SortOrder.t option
        [@ocaml.doc
          "Specifies whether to sort by ascending (ASC) or descending (DESC) order."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?sort -> fun () -> { maxResults; nextToken; sort }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResult.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sort", (Option.map x.sort ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sort = (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sort") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResult.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?sort ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sort = field_map json__ "sort" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResult.of_json in
      make ?sort ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents input for ListAnalyzableServers operation."]
module GetServerStrategiesResponse =
  struct
    type nonrec t =
      {
      serverStrategies: ServerStrategies.t option
        [@ocaml.doc "A list of strategy recommendations for the server."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serverStrategies = fun () -> { serverStrategies }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("serverStrategies",
           (Option.map x.serverStrategies ~f:ServerStrategies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverStrategies =
        (Option.map ~f:ServerStrategies.of_xml)
          (Xml.child xml_arg0 "serverStrategies") in
      make ?serverStrategies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverStrategies =
        field_map json__ "serverStrategies" ServerStrategies.of_json in
      make ?serverStrategies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves recommended strategies and tools for the specified server."]
module GetServerStrategiesRequest =
  struct
    type nonrec t =
      {
      serverId: ServerId.t [@ocaml.doc "The ID of the server."]}
    let context_ = "GetServerStrategiesRequest"
    let make ~serverId = fun () -> { serverId }
    let to_value x =
      structure_to_value
        [("serverId", (Some (ServerId.to_value x.serverId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverId =
        ServerId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "serverId") in
      make ~serverId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverId = field_map_exn json__ "serverId" ServerId.of_json in
      make ~serverId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves recommended strategies and tools for the specified server."]
module GetServerDetailsResponse =
  struct
    type nonrec t =
      {
      associatedApplications: AssociatedApplications.t option
        [@ocaml.doc
          "The associated application group the server belongs to, as defined in AWS Application Discovery Service."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token you use to retrieve the next set of results, or null if there are no more results."];
      serverDetail: ServerDetail.t option
        [@ocaml.doc "Detailed information about the server."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associatedApplications =
      fun ?nextToken ->
        fun ?serverDetail ->
          fun () -> { associatedApplications; nextToken; serverDetail }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("associatedApplications",
           (Option.map x.associatedApplications
              ~f:AssociatedApplications.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("serverDetail",
          (Option.map x.serverDetail ~f:ServerDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverDetail =
        (Option.map ~f:ServerDetail.of_xml)
          (Xml.child xml_arg0 "serverDetail") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let associatedApplications =
        (Option.map ~f:AssociatedApplications.of_xml)
          (Xml.child xml_arg0 "associatedApplications") in
      make ?serverDetail ?nextToken ?associatedApplications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverDetail = field_map json__ "serverDetail" ServerDetail.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let associatedApplications =
        field_map json__ "associatedApplications"
          AssociatedApplications.of_json in
      make ?serverDetail ?nextToken ?associatedApplications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves detailed information about a specified server."]
module GetServerDetailsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResult.t option
        [@ocaml.doc
          "The maximum number of items to include in the response. The maximum value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token from a previous call that you use to retrieve the next set of results. For example, if a previous call to this action returned 100 items, but you set maxResults to 10. You'll receive a set of 10 results along with a token. You then use the returned token to retrieve the next set of 10."];
      serverId: ServerId.t [@ocaml.doc "The ID of the server."]}
    let context_ = "GetServerDetailsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~serverId -> fun () -> { maxResults; nextToken; serverId }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResult.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("serverId", (Some (ServerId.to_value x.serverId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverId =
        ServerId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "serverId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResult.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ~serverId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverId = field_map_exn json__ "serverId" ServerId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResult.of_json in
      make ~serverId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves detailed information about a specified server."]
module GetRecommendationReportDetailsResponse =
  struct
    type nonrec t =
      {
      id: RecommendationTaskId.t option
        [@ocaml.doc
          "The ID of the recommendation report generation task. See the response of StartRecommendationReportGeneration."];
      recommendationReportDetails: RecommendationReportDetails.t option
        [@ocaml.doc "Detailed information about the recommendation report."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?recommendationReportDetails ->
        fun () -> { id; recommendationReportDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("id", (Option.map x.id ~f:RecommendationTaskId.to_value));
        ("recommendationReportDetails",
          (Option.map x.recommendationReportDetails
             ~f:RecommendationReportDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendationReportDetails =
        (Option.map ~f:RecommendationReportDetails.of_xml)
          (Xml.child xml_arg0 "recommendationReportDetails") in
      let id =
        (Option.map ~f:RecommendationTaskId.of_xml) (Xml.child xml_arg0 "id") in
      make ?recommendationReportDetails ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendationReportDetails =
        field_map json__ "recommendationReportDetails"
          RecommendationReportDetails.of_json in
      let id = field_map json__ "id" RecommendationTaskId.of_json in
      make ?recommendationReportDetails ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about the specified recommendation report."]
module GetRecommendationReportDetailsRequest =
  struct
    type nonrec t =
      {
      id: RecommendationTaskId.t
        [@ocaml.doc
          "The recommendation report generation task id returned by StartRecommendationReportGeneration."]}
    let context_ = "GetRecommendationReportDetailsRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("id", (Some (RecommendationTaskId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        RecommendationTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" RecommendationTaskId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about the specified recommendation report."]
module GetPortfolioSummaryResponse =
  struct
    type nonrec t =
      {
      assessmentSummary: AssessmentSummary.t option
        [@ocaml.doc
          "An assessment summary for the portfolio including the number of servers to rehost and the overall number of anti-patterns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentSummary = fun () -> { assessmentSummary }
    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)
      | 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)
      | 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))]
      | `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
        [("assessmentSummary",
           (Option.map x.assessmentSummary ~f:AssessmentSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentSummary =
        (Option.map ~f:AssessmentSummary.of_xml)
          (Xml.child xml_arg0 "assessmentSummary") in
      make ?assessmentSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentSummary =
        field_map json__ "assessmentSummary" AssessmentSummary.of_json in
      make ?assessmentSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves overall summary including the number of servers to rehost and the overall number of anti-patterns."]
module GetPortfolioSummaryRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves overall summary including the number of servers to rehost and the overall number of anti-patterns."]
module GetPortfolioPreferencesResponse =
  struct
    type nonrec t =
      {
      applicationMode: ApplicationMode.t option
        [@ocaml.doc "The classification for application component types."];
      applicationPreferences: ApplicationPreferences.t option
        [@ocaml.doc
          "The transformation preferences for non-database applications."];
      databasePreferences: DatabasePreferences.t option
        [@ocaml.doc
          "The transformation preferences for database applications."];
      prioritizeBusinessGoals: PrioritizeBusinessGoals.t option
        [@ocaml.doc "The rank of business goals based on priority."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationMode =
      fun ?applicationPreferences ->
        fun ?databasePreferences ->
          fun ?prioritizeBusinessGoals ->
            fun () ->
              {
                applicationMode;
                applicationPreferences;
                databasePreferences;
                prioritizeBusinessGoals
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("applicationMode",
           (Option.map x.applicationMode ~f:ApplicationMode.to_value));
        ("applicationPreferences",
          (Option.map x.applicationPreferences
             ~f:ApplicationPreferences.to_value));
        ("databasePreferences",
          (Option.map x.databasePreferences ~f:DatabasePreferences.to_value));
        ("prioritizeBusinessGoals",
          (Option.map x.prioritizeBusinessGoals
             ~f:PrioritizeBusinessGoals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prioritizeBusinessGoals =
        (Option.map ~f:PrioritizeBusinessGoals.of_xml)
          (Xml.child xml_arg0 "prioritizeBusinessGoals") in
      let databasePreferences =
        (Option.map ~f:DatabasePreferences.of_xml)
          (Xml.child xml_arg0 "databasePreferences") in
      let applicationPreferences =
        (Option.map ~f:ApplicationPreferences.of_xml)
          (Xml.child xml_arg0 "applicationPreferences") in
      let applicationMode =
        (Option.map ~f:ApplicationMode.of_xml)
          (Xml.child xml_arg0 "applicationMode") in
      make ?prioritizeBusinessGoals ?databasePreferences
        ?applicationPreferences ?applicationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prioritizeBusinessGoals =
        field_map json__ "prioritizeBusinessGoals"
          PrioritizeBusinessGoals.of_json in
      let databasePreferences =
        field_map json__ "databasePreferences" DatabasePreferences.of_json in
      let applicationPreferences =
        field_map json__ "applicationPreferences"
          ApplicationPreferences.of_json in
      let applicationMode =
        field_map json__ "applicationMode" ApplicationMode.of_json in
      make ?prioritizeBusinessGoals ?databasePreferences
        ?applicationPreferences ?applicationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves your migration and modernization preferences."]
module GetPortfolioPreferencesRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves your migration and modernization preferences."]
module GetLatestAssessmentIdResponse =
  struct
    type nonrec t =
      {
      id: AsyncTaskId.t option
        [@ocaml.doc "The latest ID for the specific assessment task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun () -> { id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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 [("id", (Option.map x.id ~f:AsyncTaskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:AsyncTaskId.of_xml) (Xml.child xml_arg0 "id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" AsyncTaskId.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieve the latest ID of a specific assessment task."]
module GetLatestAssessmentIdRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieve the latest ID of a specific assessment task."]
module GetImportFileTaskResponse =
  struct
    type nonrec t =
      {
      completionTime: TimeStamp.t option
        [@ocaml.doc "The time that the import task completed."];
      id: String_.t option
        [@ocaml.doc
          "The import file task id returned in the response of StartImportFileTask."];
      importName: String_.t option
        [@ocaml.doc
          "The name of the import task given in StartImportFileTask."];
      inputS3Bucket: ImportS3Bucket.t option
        [@ocaml.doc "The S3 bucket where import file is located."];
      inputS3Key: ImportS3Key.t option
        [@ocaml.doc "The Amazon S3 key name of the import file."];
      numberOfRecordsFailed: Integer.t option
        [@ocaml.doc "The number of records that failed to be imported."];
      numberOfRecordsSuccess: Integer.t option
        [@ocaml.doc "The number of records successfully imported."];
      startTime: TimeStamp.t option
        [@ocaml.doc "Start time of the import task."];
      status: ImportFileTaskStatus.t option
        [@ocaml.doc "Status of import file task."];
      statusReportS3Bucket: ImportS3Bucket.t option
        [@ocaml.doc "The S3 bucket name for status report of import task."];
      statusReportS3Key: ImportS3Key.t option
        [@ocaml.doc
          "The Amazon S3 key name for status report of import task. The report contains details about whether each record imported successfully or why it did not."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?completionTime =
      fun ?id ->
        fun ?importName ->
          fun ?inputS3Bucket ->
            fun ?inputS3Key ->
              fun ?numberOfRecordsFailed ->
                fun ?numberOfRecordsSuccess ->
                  fun ?startTime ->
                    fun ?status ->
                      fun ?statusReportS3Bucket ->
                        fun ?statusReportS3Key ->
                          fun () ->
                            {
                              completionTime;
                              id;
                              importName;
                              inputS3Bucket;
                              inputS3Key;
                              numberOfRecordsFailed;
                              numberOfRecordsSuccess;
                              startTime;
                              status;
                              statusReportS3Bucket;
                              statusReportS3Key
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("completionTime",
           (Option.map x.completionTime ~f:TimeStamp.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("importName", (Option.map x.importName ~f:String_.to_value));
        ("inputS3Bucket",
          (Option.map x.inputS3Bucket ~f:ImportS3Bucket.to_value));
        ("inputS3Key", (Option.map x.inputS3Key ~f:ImportS3Key.to_value));
        ("numberOfRecordsFailed",
          (Option.map x.numberOfRecordsFailed ~f:Integer.to_value));
        ("numberOfRecordsSuccess",
          (Option.map x.numberOfRecordsSuccess ~f:Integer.to_value));
        ("startTime", (Option.map x.startTime ~f:TimeStamp.to_value));
        ("status", (Option.map x.status ~f:ImportFileTaskStatus.to_value));
        ("statusReportS3Bucket",
          (Option.map x.statusReportS3Bucket ~f:ImportS3Bucket.to_value));
        ("statusReportS3Key",
          (Option.map x.statusReportS3Key ~f:ImportS3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReportS3Key =
        (Option.map ~f:ImportS3Key.of_xml)
          (Xml.child xml_arg0 "statusReportS3Key") in
      let statusReportS3Bucket =
        (Option.map ~f:ImportS3Bucket.of_xml)
          (Xml.child xml_arg0 "statusReportS3Bucket") in
      let status =
        (Option.map ~f:ImportFileTaskStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:TimeStamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let numberOfRecordsSuccess =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfRecordsSuccess") in
      let numberOfRecordsFailed =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfRecordsFailed") in
      let inputS3Key =
        (Option.map ~f:ImportS3Key.of_xml) (Xml.child xml_arg0 "inputS3Key") in
      let inputS3Bucket =
        (Option.map ~f:ImportS3Bucket.of_xml)
          (Xml.child xml_arg0 "inputS3Bucket") in
      let importName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "importName") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let completionTime =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      make ?statusReportS3Key ?statusReportS3Bucket ?status ?startTime
        ?numberOfRecordsSuccess ?numberOfRecordsFailed ?inputS3Key
        ?inputS3Bucket ?importName ?id ?completionTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReportS3Key =
        field_map json__ "statusReportS3Key" ImportS3Key.of_json in
      let statusReportS3Bucket =
        field_map json__ "statusReportS3Bucket" ImportS3Bucket.of_json in
      let status = field_map json__ "status" ImportFileTaskStatus.of_json in
      let startTime = field_map json__ "startTime" TimeStamp.of_json in
      let numberOfRecordsSuccess =
        field_map json__ "numberOfRecordsSuccess" Integer.of_json in
      let numberOfRecordsFailed =
        field_map json__ "numberOfRecordsFailed" Integer.of_json in
      let inputS3Key = field_map json__ "inputS3Key" ImportS3Key.of_json in
      let inputS3Bucket =
        field_map json__ "inputS3Bucket" ImportS3Bucket.of_json in
      let importName = field_map json__ "importName" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let completionTime =
        field_map json__ "completionTime" TimeStamp.of_json in
      make ?statusReportS3Key ?statusReportS3Bucket ?status ?startTime
        ?numberOfRecordsSuccess ?numberOfRecordsFailed ?inputS3Key
        ?inputS3Bucket ?importName ?id ?completionTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details about a specific import task."]
module GetImportFileTaskRequest =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "The ID of the import file task. This ID is returned in the response of StartImportFileTask."]}
    let context_ = "GetImportFileTaskRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (String_.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" String_.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details about a specific import task."]
module GetAssessmentResponse =
  struct
    type nonrec t =
      {
      assessmentTargets: AssessmentTargets.t option
        [@ocaml.doc "List of criteria for assessment."];
      dataCollectionDetails: DataCollectionDetails.t option
        [@ocaml.doc "Detailed information about the assessment."];
      id: AsyncTaskId.t option
        [@ocaml.doc "The ID for the specific assessment task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentTargets =
      fun ?dataCollectionDetails ->
        fun ?id -> fun () -> { assessmentTargets; dataCollectionDetails; id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("assessmentTargets",
           (Option.map x.assessmentTargets ~f:AssessmentTargets.to_value));
        ("dataCollectionDetails",
          (Option.map x.dataCollectionDetails
             ~f:DataCollectionDetails.to_value));
        ("id", (Option.map x.id ~f:AsyncTaskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:AsyncTaskId.of_xml) (Xml.child xml_arg0 "id") in
      let dataCollectionDetails =
        (Option.map ~f:DataCollectionDetails.of_xml)
          (Xml.child xml_arg0 "dataCollectionDetails") in
      let assessmentTargets =
        (Option.map ~f:AssessmentTargets.of_xml)
          (Xml.child xml_arg0 "assessmentTargets") in
      make ?id ?dataCollectionDetails ?assessmentTargets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" AsyncTaskId.of_json in
      let dataCollectionDetails =
        field_map json__ "dataCollectionDetails"
          DataCollectionDetails.of_json in
      let assessmentTargets =
        field_map json__ "assessmentTargets" AssessmentTargets.of_json in
      make ?id ?dataCollectionDetails ?assessmentTargets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the status of an on-going assessment."]
module GetAssessmentRequest =
  struct
    type nonrec t =
      {
      id: AsyncTaskId.t
        [@ocaml.doc "The assessmentid returned by StartAssessment."]}
    let context_ = "GetAssessmentRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (AsyncTaskId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        AsyncTaskId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" AsyncTaskId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the status of an on-going assessment."]
module GetApplicationComponentStrategiesResponse =
  struct
    type nonrec t =
      {
      applicationComponentStrategies: ApplicationComponentStrategies.t option
        [@ocaml.doc
          "A list of application component strategy recommendations."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationComponentStrategies =
      fun () -> { applicationComponentStrategies }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("applicationComponentStrategies",
           (Option.map x.applicationComponentStrategies
              ~f:ApplicationComponentStrategies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationComponentStrategies =
        (Option.map ~f:ApplicationComponentStrategies.of_xml)
          (Xml.child xml_arg0 "applicationComponentStrategies") in
      make ?applicationComponentStrategies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationComponentStrategies =
        field_map json__ "applicationComponentStrategies"
          ApplicationComponentStrategies.of_json in
      make ?applicationComponentStrategies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all the recommended strategies and tools for an application component running on a server."]
module GetApplicationComponentStrategiesRequest =
  struct
    type nonrec t =
      {
      applicationComponentId: ApplicationComponentId.t
        [@ocaml.doc
          "The ID of the application component. The ID is unique within an AWS account."]}
    let context_ = "GetApplicationComponentStrategiesRequest"
    let make ~applicationComponentId = fun () -> { applicationComponentId }
    let to_value x =
      structure_to_value
        [("applicationComponentId",
           (Some (ApplicationComponentId.to_value x.applicationComponentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationComponentId =
        ApplicationComponentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "applicationComponentId") in
      make ~applicationComponentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationComponentId =
        field_map_exn json__ "applicationComponentId"
          ApplicationComponentId.of_json in
      make ~applicationComponentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all the recommended strategies and tools for an application component running on a server."]
module GetApplicationComponentDetailsResponse =
  struct
    type nonrec t =
      {
      applicationComponentDetail: ApplicationComponentDetail.t option
        [@ocaml.doc "Detailed information about an application component."];
      associatedApplications: AssociatedApplications.t option
        [@ocaml.doc
          "The associated application group as defined in AWS Application Discovery Service."];
      associatedServerIds: AssociatedServerIDs.t option
        [@ocaml.doc
          "A list of the IDs of the servers on which the application component is running."];
      moreApplicationResource: Boolean.t option
        [@ocaml.doc
          "Set to true if the application component belongs to more than one application group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationComponentDetail =
      fun ?associatedApplications ->
        fun ?associatedServerIds ->
          fun ?moreApplicationResource ->
            fun () ->
              {
                applicationComponentDetail;
                associatedApplications;
                associatedServerIds;
                moreApplicationResource
              }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("applicationComponentDetail",
           (Option.map x.applicationComponentDetail
              ~f:ApplicationComponentDetail.to_value));
        ("associatedApplications",
          (Option.map x.associatedApplications
             ~f:AssociatedApplications.to_value));
        ("associatedServerIds",
          (Option.map x.associatedServerIds ~f:AssociatedServerIDs.to_value));
        ("moreApplicationResource",
          (Option.map x.moreApplicationResource ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moreApplicationResource =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "moreApplicationResource") in
      let associatedServerIds =
        (Option.map ~f:AssociatedServerIDs.of_xml)
          (Xml.child xml_arg0 "associatedServerIds") in
      let associatedApplications =
        (Option.map ~f:AssociatedApplications.of_xml)
          (Xml.child xml_arg0 "associatedApplications") in
      let applicationComponentDetail =
        (Option.map ~f:ApplicationComponentDetail.of_xml)
          (Xml.child xml_arg0 "applicationComponentDetail") in
      make ?moreApplicationResource ?associatedServerIds
        ?associatedApplications ?applicationComponentDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moreApplicationResource =
        field_map json__ "moreApplicationResource" Boolean.of_json in
      let associatedServerIds =
        field_map json__ "associatedServerIds" AssociatedServerIDs.of_json in
      let associatedApplications =
        field_map json__ "associatedApplications"
          AssociatedApplications.of_json in
      let applicationComponentDetail =
        field_map json__ "applicationComponentDetail"
          ApplicationComponentDetail.of_json in
      make ?moreApplicationResource ?associatedServerIds
        ?associatedApplications ?applicationComponentDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an application component."]
module GetApplicationComponentDetailsRequest =
  struct
    type nonrec t =
      {
      applicationComponentId: ApplicationComponentId.t
        [@ocaml.doc
          "The ID of the application component. The ID is unique within an AWS account."]}
    let context_ = "GetApplicationComponentDetailsRequest"
    let make ~applicationComponentId = fun () -> { applicationComponentId }
    let to_value x =
      structure_to_value
        [("applicationComponentId",
           (Some (ApplicationComponentId.to_value x.applicationComponentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationComponentId =
        ApplicationComponentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "applicationComponentId") in
      make ~applicationComponentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationComponentId =
        field_map_exn json__ "applicationComponentId"
          ApplicationComponentId.of_json in
      make ~applicationComponentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an application component."]