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.simspaceweaver
let apiVersion = "2022-10-28"
let endpointPrefix = "simspaceweaver"
let serviceFullName = "AWS SimSpace Weaver"
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 LogGroupArn =
  struct
    type nonrec t = string
    let context_ = "LogGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:(?:aws|aws-cn|aws-us-gov):log-group:([a-z]{2}-[a-z]+-\\d{1}):(\\d{12})?:role\\/(.+)$")));
        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:"LogGroupArn" j
    let to_json = simple_to_json to_value
  end
module LifecycleManagementStrategy =
  struct
    type nonrec t =
      | Unknown 
      | PerWorker 
      | BySpatialSubdivision 
      | ByRequest 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Unknown -> "Unknown"
      | PerWorker -> "PerWorker"
      | BySpatialSubdivision -> "BySpatialSubdivision"
      | ByRequest -> "ByRequest"
      | Non_static_id s -> s
    let of_string =
      function
      | "Unknown" -> Unknown
      | "PerWorker" -> PerWorker
      | "BySpatialSubdivision" -> BySpatialSubdivision
      | "ByRequest" -> ByRequest
      | 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 LifecycleManagementStrategy"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LifecycleManagementStrategy" j)
    let to_json = simple_to_json to_value
  end
module SimSpaceWeaverResourceName =
  struct
    type nonrec t = string
    let context_ = "SimSpaceWeaverResourceName"
    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:"^[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:"SimSpaceWeaverResourceName" j
    let to_json = simple_to_json to_value
  end
module ClockStatus =
  struct
    type nonrec t =
      | UNKNOWN 
      | STARTING 
      | STARTED 
      | STOPPING 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | STARTING -> "STARTING"
      | STARTED -> "STARTED"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "STARTING" -> STARTING
      | "STARTED" -> STARTED
      | "STOPPING" -> STOPPING
      | "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 ClockStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClockStatus" j)
    let to_json = simple_to_json to_value
  end
module ClockTargetStatus =
  struct
    type nonrec t =
      | UNKNOWN 
      | STARTED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | STARTED -> "STARTED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "STARTED" -> STARTED
      | "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 ClockTargetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClockTargetStatus" j)
    let to_json = simple_to_json to_value
  end
module CloudWatchLogsLogGroup =
  struct
    type nonrec t =
      {
      logGroupArn: LogGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log group for the simulation. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference. For more information about log groups, see Working with log groups and log streams in the Amazon CloudWatch Logs User Guide."]}
    let make ?logGroupArn = fun () -> { logGroupArn }
    let to_value x =
      structure_to_value
        [("LogGroupArn", (Option.map x.logGroupArn ~f:LogGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupArn =
        (Option.map ~f:LogGroupArn.of_xml) (Xml.child xml_arg0 "LogGroupArn") in
      make ?logGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupArn = field_map json__ "LogGroupArn" LogGroupArn.of_json in
      make ?logGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon CloudWatch Logs log group for the simulation. For more information about log groups, see Working with log groups and log streams in the Amazon CloudWatch Logs User Guide."]
module PortNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:0));
        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 PortNumber" 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 NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module SimSpaceWeaverArn =
  struct
    type nonrec t = string
    let context_ = "SimSpaceWeaverArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:(?:aws|aws-cn|aws-us-gov):simspaceweaver:([a-z]{2}-[a-z]+-\\d{1}):(\\d{12})?:([a-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:"SimSpaceWeaverArn" j
    let to_json = simple_to_json to_value
  end
module SimulationStatus =
  struct
    type nonrec t =
      | UNKNOWN 
      | STARTING 
      | STARTED 
      | STOPPING 
      | STOPPED 
      | FAILED 
      | DELETING 
      | DELETED 
      | SNAPSHOT_IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | STARTING -> "STARTING"
      | STARTED -> "STARTED"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | FAILED -> "FAILED"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | SNAPSHOT_IN_PROGRESS -> "SNAPSHOT_IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "STARTING" -> STARTING
      | "STARTED" -> STARTED
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "FAILED" -> FAILED
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "SNAPSHOT_IN_PROGRESS" -> SNAPSHOT_IN_PROGRESS
      | 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 SimulationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SimulationStatus" j)
    let to_json = simple_to_json to_value
  end
module SimulationTargetStatus =
  struct
    type nonrec t =
      | UNKNOWN 
      | STARTED 
      | STOPPED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | STARTED -> "STARTED"
      | STOPPED -> "STOPPED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "STARTED" -> STARTED
      | "STOPPED" -> STOPPED
      | "DELETED" -> DELETED
      | 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 SimulationTargetStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SimulationTargetStatus" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module SimSpaceWeaverLongResourceName =
  struct
    type nonrec t = string
    let context_ = "SimSpaceWeaverLongResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"SimSpaceWeaverLongResourceName" j
    let to_json = simple_to_json to_value
  end
module SimulationAppStatus =
  struct
    type nonrec t =
      | STARTING 
      | STARTED 
      | STOPPING 
      | STOPPED 
      | ERROR 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | STARTED -> "STARTED"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | ERROR -> "ERROR"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "STARTED" -> STARTED
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "ERROR" -> ERROR
      | "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 SimulationAppStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SimulationAppStatus" j)
    let to_json = simple_to_json to_value
  end
module SimulationAppTargetStatus =
  struct
    type nonrec t =
      | UNKNOWN 
      | STARTED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | STARTED -> "STARTED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "STARTED" -> STARTED
      | "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 SimulationAppTargetStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SimulationAppTargetStatus" j)
    let to_json = simple_to_json to_value
  end
module Domain =
  struct
    type nonrec t =
      {
      lifecycle: LifecycleManagementStrategy.t option
        [@ocaml.doc
          "The type of lifecycle management for apps in the domain. Indicates whether apps in this domain are managed (SimSpace Weaver starts and stops the apps) or unmanaged (you must start and stop the apps). Lifecycle types PerWorker \226\128\147 Managed: SimSpace Weaver starts one app on each worker. BySpatialSubdivision \226\128\147 Managed: SimSpace Weaver starts one app for each spatial partition. ByRequest \226\128\147 Unmanaged: You use the StartApp API to start the apps and use the StopApp API to stop the apps."];
      name: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the domain."]}
    let make ?lifecycle = fun ?name -> fun () -> { lifecycle; name }
    let to_value x =
      structure_to_value
        [("Lifecycle",
           (Option.map x.lifecycle ~f:LifecycleManagementStrategy.to_value));
        ("Name", (Option.map x.name ~f:SimSpaceWeaverResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let lifecycle =
        (Option.map ~f:LifecycleManagementStrategy.of_xml)
          (Xml.child xml_arg0 "Lifecycle") in
      make ?name ?lifecycle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" SimSpaceWeaverResourceName.of_json in
      let lifecycle =
        field_map json__ "Lifecycle" LifecycleManagementStrategy.of_json in
      make ?name ?lifecycle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of app instances that run the same executable app code and have the same launch options and commands. For more information about domains, see Key concepts: Domains in the SimSpace Weaver User Guide."]
module SimulationClock =
  struct
    type nonrec t =
      {
      status: ClockStatus.t option
        [@ocaml.doc "The current status of the simulation clock."];
      targetStatus: ClockTargetStatus.t option
        [@ocaml.doc "The desired status of the simulation clock."]}
    let make ?status =
      fun ?targetStatus -> fun () -> { status; targetStatus }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ClockStatus.to_value));
        ("TargetStatus",
          (Option.map x.targetStatus ~f:ClockTargetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetStatus =
        (Option.map ~f:ClockTargetStatus.of_xml)
          (Xml.child xml_arg0 "TargetStatus") in
      let status =
        (Option.map ~f:ClockStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?targetStatus ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetStatus =
        field_map json__ "TargetStatus" ClockTargetStatus.of_json in
      let status = field_map json__ "Status" ClockStatus.of_json in
      make ?targetStatus ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Status information about the simulation clock."]
module LogDestination =
  struct
    type nonrec t =
      {
      cloudWatchLogsLogGroup: CloudWatchLogsLogGroup.t option
        [@ocaml.doc
          "An Amazon CloudWatch Logs log group that stores simulation log data. For more information about log groups, see Working with log groups and log streams in the Amazon CloudWatch Logs User Guide."]}
    let make ?cloudWatchLogsLogGroup = fun () -> { cloudWatchLogsLogGroup }
    let to_value x =
      structure_to_value
        [("CloudWatchLogsLogGroup",
           (Option.map x.cloudWatchLogsLogGroup
              ~f:CloudWatchLogsLogGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cloudWatchLogsLogGroup =
        (Option.map ~f:CloudWatchLogsLogGroup.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsLogGroup") in
      make ?cloudWatchLogsLogGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cloudWatchLogsLogGroup =
        field_map json__ "CloudWatchLogsLogGroup"
          CloudWatchLogsLogGroup.of_json in
      make ?cloudWatchLogsLogGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The location where SimSpace Weaver sends simulation log data."]
module SimulationAppPortMapping =
  struct
    type nonrec t =
      {
      actual: PortNumber.t option
        [@ocaml.doc
          "The TCP/UDP port number of the running app. SimSpace Weaver dynamically assigns this port number when the app starts. SimSpace Weaver maps the Declared port to the Actual port. Clients connect to the app using the app's IP address and the Actual port number."];
      declared: PortNumber.t option
        [@ocaml.doc
          "The TCP/UDP port number of the app, declared in the simulation schema. SimSpace Weaver maps the Declared port to the Actual port. The source code for the app should bind to the Declared port."]}
    let make ?actual = fun ?declared -> fun () -> { actual; declared }
    let to_value x =
      structure_to_value
        [("Actual", (Option.map x.actual ~f:PortNumber.to_value));
        ("Declared", (Option.map x.declared ~f:PortNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let declared =
        (Option.map ~f:PortNumber.of_xml) (Xml.child xml_arg0 "Declared") in
      let actual =
        (Option.map ~f:PortNumber.of_xml) (Xml.child xml_arg0 "Actual") in
      make ?declared ?actual ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let declared = field_map json__ "Declared" PortNumber.of_json in
      let actual = field_map json__ "Actual" PortNumber.of_json in
      make ?declared ?actual ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of TCP/UDP ports for a custom or service app."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BucketName" j
    let to_json = simple_to_json to_value
  end
module ObjectKey =
  struct
    type nonrec t = string
    let context_ = "ObjectKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ObjectKey" j
    let to_json = simple_to_json to_value
  end
module LaunchCommandList =
  struct
    type nonrec t = NonEmptyString.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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"LaunchCommandList" ~of_json:NonEmptyString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SimulationMetadata =
  struct
    type nonrec t =
      {
      arn: SimSpaceWeaverArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the simulation. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time when the simulation was created, expressed as the number of seconds and milliseconds in UTC since the Unix epoch (0:0:0.000, January 1, 1970)."];
      name: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the simulation."];
      status: SimulationStatus.t option
        [@ocaml.doc "The current status of the simulation."];
      targetStatus: SimulationTargetStatus.t option
        [@ocaml.doc "The desired status of the simulation."]}
    let make ?arn =
      fun ?creationTime ->
        fun ?name ->
          fun ?status ->
            fun ?targetStatus ->
              fun () -> { arn; creationTime; name; status; targetStatus }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:SimSpaceWeaverArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("Name", (Option.map x.name ~f:SimSpaceWeaverResourceName.to_value));
        ("Status", (Option.map x.status ~f:SimulationStatus.to_value));
        ("TargetStatus",
          (Option.map x.targetStatus ~f:SimulationTargetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetStatus =
        (Option.map ~f:SimulationTargetStatus.of_xml)
          (Xml.child xml_arg0 "TargetStatus") in
      let status =
        (Option.map ~f:SimulationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let arn =
        (Option.map ~f:SimSpaceWeaverArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?targetStatus ?status ?name ?creationTime ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetStatus =
        field_map json__ "TargetStatus" SimulationTargetStatus.of_json in
      let status = field_map json__ "Status" SimulationStatus.of_json in
      let name = field_map json__ "Name" SimSpaceWeaverResourceName.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let arn = field_map json__ "Arn" SimSpaceWeaverArn.of_json in
      make ?targetStatus ?status ?name ?creationTime ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of data about the simulation."]
module SimulationAppMetadata =
  struct
    type nonrec t =
      {
      domain: SimSpaceWeaverResourceName.t option
        [@ocaml.doc
          "The domain of the app. For more information about domains, see Key concepts: Domains in the SimSpace Weaver User Guide."];
      name: SimSpaceWeaverLongResourceName.t option
        [@ocaml.doc "The name of the app."];
      simulation: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the simulation of the app."];
      status: SimulationAppStatus.t option
        [@ocaml.doc "The current status of the app."];
      targetStatus: SimulationAppTargetStatus.t option
        [@ocaml.doc "The desired status of the app."]}
    let make ?domain =
      fun ?name ->
        fun ?simulation ->
          fun ?status ->
            fun ?targetStatus ->
              fun () -> { domain; name; simulation; status; targetStatus }
    let to_value x =
      structure_to_value
        [("Domain",
           (Option.map x.domain ~f:SimSpaceWeaverResourceName.to_value));
        ("Name",
          (Option.map x.name ~f:SimSpaceWeaverLongResourceName.to_value));
        ("Simulation",
          (Option.map x.simulation ~f:SimSpaceWeaverResourceName.to_value));
        ("Status", (Option.map x.status ~f:SimulationAppStatus.to_value));
        ("TargetStatus",
          (Option.map x.targetStatus ~f:SimulationAppTargetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetStatus =
        (Option.map ~f:SimulationAppTargetStatus.of_xml)
          (Xml.child xml_arg0 "TargetStatus") in
      let status =
        (Option.map ~f:SimulationAppStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let simulation =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Simulation") in
      let name =
        (Option.map ~f:SimSpaceWeaverLongResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let domain =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Domain") in
      make ?targetStatus ?status ?simulation ?name ?domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetStatus =
        field_map json__ "TargetStatus" SimulationAppTargetStatus.of_json in
      let status = field_map json__ "Status" SimulationAppStatus.of_json in
      let simulation =
        field_map json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let name =
        field_map json__ "Name" SimSpaceWeaverLongResourceName.of_json in
      let domain =
        field_map json__ "Domain" SimSpaceWeaverResourceName.of_json in
      make ?targetStatus ?status ?simulation ?name ?domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of metadata about the app."]
module DomainList =
  struct
    type nonrec t = Domain.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:Domain.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:Domain.of_xml)
    let of_json j = list_of_json ~kind:"DomainList" ~of_json:Domain.of_json j
    let to_json v = composed_to_json to_value v
  end
module SimulationClockList =
  struct
    type nonrec t = SimulationClock.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:SimulationClock.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:SimulationClock.of_xml)
    let of_json j =
      list_of_json ~kind:"SimulationClockList"
        ~of_json:SimulationClock.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogDestinations =
  struct
    type nonrec t = LogDestination.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:LogDestination.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:LogDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"LogDestinations" ~of_json:LogDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppPortMappings =
  struct
    type nonrec t = SimulationAppPortMapping.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:SimulationAppPortMapping.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:SimulationAppPortMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"AppPortMappings"
        ~of_json:SimulationAppPortMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectKeyPrefix =
  struct
    type nonrec t = string
    let context_ = "ObjectKeyPrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        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:"ObjectKeyPrefix" j
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module ValidationException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:TagKey.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:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TooManyTagsException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: NonEmptyString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonEmptyString.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" NonEmptyString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}$"));
        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:"UUID" j
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:32) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:0));
        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:"Description" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:(?:aws|aws-cn|aws-us-gov):iam::(\\d{12})?:role\\/(.+)$")));
        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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module S3Location =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t
        [@ocaml.doc
          "The name of an Amazon S3 bucket. For more information about buckets, see Creating, configuring, and working with Amazon S3 buckets in the Amazon Simple Storage Service User Guide."];
      objectKey: ObjectKey.t
        [@ocaml.doc
          "The key name of an object in Amazon S3. For more information about Amazon S3 objects and object keys, see Uploading, downloading, and working with objects in Amazon S3 in the Amazon Simple Storage Service User Guide."]}
    let context_ = "S3Location"
    let make ~bucketName =
      fun ~objectKey -> fun () -> { bucketName; objectKey }
    let to_value x =
      structure_to_value
        [("BucketName", (Some (BucketName.to_value x.bucketName)));
        ("ObjectKey", (Some (ObjectKey.to_value x.objectKey)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectKey =
        ObjectKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectKey") in
      let bucketName =
        BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketName") in
      make ~objectKey ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectKey = field_map_exn json__ "ObjectKey" ObjectKey.of_json in
      let bucketName = field_map_exn json__ "BucketName" BucketName.of_json in
      make ~objectKey ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A location in Amazon Simple Storage Service (Amazon S3) where SimSpace Weaver stores simulation data, such as your app .zip files and schema file. For more information about Amazon S3, see the Amazon Simple Storage Service User Guide ."]
module TimeToLiveString =
  struct
    type nonrec t = string
    let context_ = "TimeToLiveString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:6) >>=
                  (fun () -> check_pattern i ~pattern:"^\\d{1,5}[mhdMHD]$")));
        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:"TimeToLiveString" j
    let to_json = simple_to_json to_value
  end
module LaunchOverrides =
  struct
    type nonrec t =
      {
      launchCommands: LaunchCommandList.t option
        [@ocaml.doc
          "App launch commands and command line parameters that override the launch command configured in the simulation schema."]}
    let make ?launchCommands = fun () -> { launchCommands }
    let to_value x =
      structure_to_value
        [("LaunchCommands",
           (Option.map x.launchCommands ~f:LaunchCommandList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let launchCommands =
        (Option.map ~f:LaunchCommandList.of_xml)
          (Xml.child xml_arg0 "LaunchCommands") in
      make ?launchCommands ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let launchCommands =
        field_map json__ "LaunchCommands" LaunchCommandList.of_json in
      make ?launchCommands ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options that apply when the app starts. These options override default behavior."]
module OptionalString =
  struct
    type nonrec t = string
    let context_ = "OptionalString"
    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:"OptionalString" j
    let to_json = simple_to_json to_value
  end
module SimulationList =
  struct
    type nonrec t = SimulationMetadata.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:SimulationMetadata.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:SimulationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"SimulationList" ~of_json:SimulationMetadata.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PositiveInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 PositiveInteger" 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 SimulationAppList =
  struct
    type nonrec t = SimulationAppMetadata.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:SimulationAppMetadata.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:SimulationAppMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"SimulationAppList"
        ~of_json:SimulationAppMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module LiveSimulationState =
  struct
    type nonrec t =
      {
      clocks: SimulationClockList.t option
        [@ocaml.doc
          "A list of simulation clocks. At this time, a simulation has only one clock."];
      domains: DomainList.t option
        [@ocaml.doc
          "A list of domains for the simulation. For more information about domains, see Key concepts: Domains in the SimSpace Weaver User Guide."]}
    let make ?clocks = fun ?domains -> fun () -> { clocks; domains }
    let to_value x =
      structure_to_value
        [("Clocks", (Option.map x.clocks ~f:SimulationClockList.to_value));
        ("Domains", (Option.map x.domains ~f:DomainList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domains =
        (Option.map ~f:DomainList.of_xml) (Xml.child xml_arg0 "Domains") in
      let clocks =
        (Option.map ~f:SimulationClockList.of_xml)
          (Xml.child xml_arg0 "Clocks") in
      make ?domains ?clocks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domains = field_map json__ "Domains" DomainList.of_json in
      let clocks = field_map json__ "Clocks" SimulationClockList.of_json in
      make ?domains ?clocks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of additional state information, such as domain and clock configuration."]
module LoggingConfiguration =
  struct
    type nonrec t =
      {
      destinations: LogDestinations.t option
        [@ocaml.doc
          "A list of the locations where SimSpace Weaver sends simulation log data."]}
    let make ?destinations = fun () -> { destinations }
    let to_value x =
      structure_to_value
        [("Destinations",
           (Option.map x.destinations ~f:LogDestinations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinations =
        (Option.map ~f:LogDestinations.of_xml)
          (Xml.child xml_arg0 "Destinations") in
      make ?destinations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinations =
        field_map json__ "Destinations" LogDestinations.of_json in
      make ?destinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The logging configuration for a simulation."]
module SimulationAppEndpointInfo =
  struct
    type nonrec t =
      {
      address: NonEmptyString.t option
        [@ocaml.doc
          "The IP address of the app. SimSpace Weaver dynamically assigns this IP address when the app starts."];
      ingressPortMappings: AppPortMappings.t option
        [@ocaml.doc
          "The inbound TCP/UDP port numbers of the app. The combination of an IP address and a port number form a network endpoint."]}
    let make ?address =
      fun ?ingressPortMappings -> fun () -> { address; ingressPortMappings }
    let to_value x =
      structure_to_value
        [("Address", (Option.map x.address ~f:NonEmptyString.to_value));
        ("IngressPortMappings",
          (Option.map x.ingressPortMappings ~f:AppPortMappings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingressPortMappings =
        (Option.map ~f:AppPortMappings.of_xml)
          (Xml.child xml_arg0 "IngressPortMappings") in
      let address =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Address") in
      make ?ingressPortMappings ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingressPortMappings =
        field_map json__ "IngressPortMappings" AppPortMappings.of_json in
      let address = field_map json__ "Address" NonEmptyString.of_json in
      make ?ingressPortMappings ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the network endpoint that you can use to connect to your custom or service app. For more information about SimSpace Weaver apps, see Key concepts: Apps in the SimSpace Weaver User Guide.."]
module S3Destination =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t
        [@ocaml.doc
          "The name of an Amazon S3 bucket. For more information about buckets, see Creating, configuring, and working with Amazon S3 buckets in the Amazon Simple Storage Service User Guide."];
      objectKeyPrefix: ObjectKeyPrefix.t option
        [@ocaml.doc
          "A string prefix for an Amazon S3 object key. It's usually a folder name. For more information about folders in Amazon S3, see Organizing objects in the Amazon S3 console using folders in the Amazon Simple Storage Service User Guide."]}
    let context_ = "S3Destination"
    let make ?objectKeyPrefix =
      fun ~bucketName -> fun () -> { objectKeyPrefix; bucketName }
    let to_value x =
      structure_to_value
        [("BucketName", (Some (BucketName.to_value x.bucketName)));
        ("ObjectKeyPrefix",
          (Option.map x.objectKeyPrefix ~f:ObjectKeyPrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectKeyPrefix =
        (Option.map ~f:ObjectKeyPrefix.of_xml)
          (Xml.child xml_arg0 "ObjectKeyPrefix") in
      let bucketName =
        BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketName") in
      make ?objectKeyPrefix ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectKeyPrefix =
        field_map json__ "ObjectKeyPrefix" ObjectKeyPrefix.of_json in
      let bucketName = field_map_exn json__ "BucketName" BucketName.of_json in
      make ?objectKeyPrefix ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon S3 bucket and optional folder (object key prefix) where SimSpace Weaver creates a file."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Removes tags from a SimSpace Weaver resource. For more information about tags, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: SimSpaceWeaverArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to remove tags from. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "A list of tag keys to remove from the resource."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (SimSpaceWeaverArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        SimSpaceWeaverArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" SimSpaceWeaverArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from a SimSpace Weaver resource. For more information about tags, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.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
       "Adds tags to a SimSpace Weaver resource. For more information about tags, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: SimSpaceWeaverArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to add tags to. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      tags: TagMap.t [@ocaml.doc "A list of tags to apply to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (SimSpaceWeaverArn.to_value x.resourceArn)));
        ("Tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        SimSpaceWeaverArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagMap.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" SimSpaceWeaverArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds tags to a SimSpace Weaver resource. For more information about tags, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference."]
module StopSimulationOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 given simulation. You can't restart a simulation after you stop it. If you want to restart a simulation, then you must stop it, delete it, and start a new instance of it."]
module StopSimulationInput =
  struct
    type nonrec t =
      {
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "StopSimulationInput"
    let make ~simulation = fun () -> { simulation }
    let to_value x =
      structure_to_value
        [("Simulation",
           (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      make ~simulation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      make ~simulation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the given simulation. You can't restart a simulation after you stop it. If you want to restart a simulation, then you must stop it, delete it, and start a new instance of it."]
module StopClockOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 simulation clock."]
module StopClockInput =
  struct
    type nonrec t =
      {
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "StopClockInput"
    let make ~simulation = fun () -> { simulation }
    let to_value x =
      structure_to_value
        [("Simulation",
           (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      make ~simulation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      make ~simulation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the simulation clock."]
module StopAppOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 given custom app and shuts down all of its allocated compute resources."]
module StopAppInput =
  struct
    type nonrec t =
      {
      app: SimSpaceWeaverResourceName.t [@ocaml.doc "The name of the app."];
      domain: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the domain of the app."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation of the app."]}
    let context_ = "StopAppInput"
    let make ~app =
      fun ~domain -> fun ~simulation -> fun () -> { app; domain; simulation }
    let to_value x =
      structure_to_value
        [("App", (Some (SimSpaceWeaverResourceName.to_value x.app)));
        ("Domain", (Some (SimSpaceWeaverResourceName.to_value x.domain)));
        ("Simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      let domain =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Domain") in
      let app =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "App") in
      make ~simulation ~domain ~app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let domain =
        field_map_exn json__ "Domain" SimSpaceWeaverResourceName.of_json in
      let app = field_map_exn json__ "App" SimSpaceWeaverResourceName.of_json in
      make ~simulation ~domain ~app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the given custom app and shuts down all of its allocated compute resources."]
module StartSimulationOutput =
  struct
    type nonrec t =
      {
      arn: SimSpaceWeaverArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the simulation. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time when the simulation was created, expressed as the number of seconds and milliseconds in UTC since the Unix epoch (0:0:0.000, January 1, 1970)."];
      executionId: UUID.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for this simulation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?creationTime ->
        fun ?executionId -> fun () -> { arn; creationTime; executionId }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("Arn", (Option.map x.arn ~f:SimSpaceWeaverArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("ExecutionId", (Option.map x.executionId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "ExecutionId") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let arn =
        (Option.map ~f:SimSpaceWeaverArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?executionId ?creationTime ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionId = field_map json__ "ExecutionId" UUID.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let arn = field_map json__ "Arn" SimSpaceWeaverArn.of_json in
      make ?executionId ?creationTime ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a simulation with the given name. You must choose to start your simulation from a schema or from a snapshot. For more information about the schema, see the schema reference in the SimSpace Weaver User Guide. For more information about snapshots, see Snapshots in the SimSpace Weaver User Guide."]
module StartSimulationInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A value that you provide to ensure that repeated calls to this API operation using the same parameters complete only once. A ClientToken is also known as an idempotency token. A ClientToken expires after 24 hours."];
      description: Description.t option
        [@ocaml.doc "The description of the simulation."];
      maximumDuration: TimeToLiveString.t option
        [@ocaml.doc
          "The maximum running time of the simulation, specified as a number of minutes (m or M), hours (h or H), or days (d or D). The simulation stops when it reaches this limit. The maximum value is 14D, or its equivalent in the other units. The default value is 14D. A value equivalent to 0 makes the simulation immediately transition to Stopping as soon as it reaches Started."];
      name: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Identity and Access Management (IAM) role that the simulation assumes to perform actions. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference. For more information about IAM roles, see IAM roles in the Identity and Access Management User Guide."];
      schemaS3Location: S3Location.t option
        [@ocaml.doc
          "The location of the simulation schema in Amazon Simple Storage Service (Amazon S3). For more information about Amazon S3, see the Amazon Simple Storage Service User Guide . Provide a SchemaS3Location to start your simulation from a schema. If you provide a SchemaS3Location then you can't provide a SnapshotS3Location."];
      snapshotS3Location: S3Location.t option
        [@ocaml.doc
          "The location of the snapshot .zip file in Amazon Simple Storage Service (Amazon S3). For more information about Amazon S3, see the Amazon Simple Storage Service User Guide . Provide a SnapshotS3Location to start your simulation from a snapshot. The Amazon S3 bucket must be in the same Amazon Web Services Region as the simulation. If you provide a SnapshotS3Location then you can't provide a SchemaS3Location."];
      tags: TagMap.t option
        [@ocaml.doc
          "A list of tags for the simulation. For more information about tags, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference."]}
    let context_ = "StartSimulationInput"
    let make ?clientToken =
      fun ?description ->
        fun ?maximumDuration ->
          fun ?schemaS3Location ->
            fun ?snapshotS3Location ->
              fun ?tags ->
                fun ~name ->
                  fun ~roleArn ->
                    fun () ->
                      {
                        clientToken;
                        description;
                        maximumDuration;
                        schemaS3Location;
                        snapshotS3Location;
                        tags;
                        name;
                        roleArn
                      }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("MaximumDuration",
          (Option.map x.maximumDuration ~f:TimeToLiveString.to_value));
        ("Name", (Some (SimSpaceWeaverResourceName.to_value x.name)));
        ("RoleArn", (Some (RoleArn.to_value x.roleArn)));
        ("SchemaS3Location",
          (Option.map x.schemaS3Location ~f:S3Location.to_value));
        ("SnapshotS3Location",
          (Option.map x.snapshotS3Location ~f:S3Location.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let snapshotS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "SnapshotS3Location") in
      let schemaS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "SchemaS3Location") in
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleArn") in
      let name =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let maximumDuration =
        (Option.map ~f:TimeToLiveString.of_xml)
          (Xml.child xml_arg0 "MaximumDuration") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?tags ?snapshotS3Location ?schemaS3Location ~roleArn ~name
        ?maximumDuration ?description ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let snapshotS3Location =
        field_map json__ "SnapshotS3Location" S3Location.of_json in
      let schemaS3Location =
        field_map json__ "SchemaS3Location" S3Location.of_json in
      let roleArn = field_map_exn json__ "RoleArn" RoleArn.of_json in
      let name =
        field_map_exn json__ "Name" SimSpaceWeaverResourceName.of_json in
      let maximumDuration =
        field_map json__ "MaximumDuration" TimeToLiveString.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?tags ?snapshotS3Location ?schemaS3Location ~roleArn ~name
        ?maximumDuration ?description ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a simulation with the given name. You must choose to start your simulation from a schema or from a snapshot. For more information about the schema, see the schema reference in the SimSpace Weaver User Guide. For more information about snapshots, see Snapshots in the SimSpace Weaver User Guide."]
module StartClockOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 "Starts the simulation clock."]
module StartClockInput =
  struct
    type nonrec t =
      {
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "StartClockInput"
    let make ~simulation = fun () -> { simulation }
    let to_value x =
      structure_to_value
        [("Simulation",
           (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      make ~simulation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      make ~simulation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the simulation clock."]
module StartAppOutput =
  struct
    type nonrec t =
      {
      domain: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the domain of the app."];
      name: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the app."];
      simulation: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the simulation of the app."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domain =
      fun ?name -> fun ?simulation -> fun () -> { domain; name; simulation }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("Domain",
           (Option.map x.domain ~f:SimSpaceWeaverResourceName.to_value));
        ("Name", (Option.map x.name ~f:SimSpaceWeaverResourceName.to_value));
        ("Simulation",
          (Option.map x.simulation ~f:SimSpaceWeaverResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Simulation") in
      let name =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let domain =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Domain") in
      make ?simulation ?name ?domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let name = field_map json__ "Name" SimSpaceWeaverResourceName.of_json in
      let domain =
        field_map json__ "Domain" SimSpaceWeaverResourceName.of_json in
      make ?simulation ?name ?domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a custom app with the configuration specified in the simulation schema."]
module StartAppInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A value that you provide to ensure that repeated calls to this API operation using the same parameters complete only once. A ClientToken is also known as an idempotency token. A ClientToken expires after 24 hours."];
      description: Description.t option
        [@ocaml.doc "The description of the app."];
      domain: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the domain of the app."];
      launchOverrides: LaunchOverrides.t option ;
      name: SimSpaceWeaverResourceName.t [@ocaml.doc "The name of the app."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation of the app."]}
    let context_ = "StartAppInput"
    let make ?clientToken =
      fun ?description ->
        fun ?launchOverrides ->
          fun ~domain ->
            fun ~name ->
              fun ~simulation ->
                fun () ->
                  {
                    clientToken;
                    description;
                    launchOverrides;
                    domain;
                    name;
                    simulation
                  }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Domain", (Some (SimSpaceWeaverResourceName.to_value x.domain)));
        ("LaunchOverrides",
          (Option.map x.launchOverrides ~f:LaunchOverrides.to_value));
        ("Name", (Some (SimSpaceWeaverResourceName.to_value x.name)));
        ("Simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      let name =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let launchOverrides =
        (Option.map ~f:LaunchOverrides.of_xml)
          (Xml.child xml_arg0 "LaunchOverrides") in
      let domain =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Domain") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ~simulation ~name ?launchOverrides ~domain ?description
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let name =
        field_map_exn json__ "Name" SimSpaceWeaverResourceName.of_json in
      let launchOverrides =
        field_map json__ "LaunchOverrides" LaunchOverrides.of_json in
      let domain =
        field_map_exn json__ "Domain" SimSpaceWeaverResourceName.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ~simulation ~name ?launchOverrides ~domain ?description
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a custom app with the configuration specified in the simulation schema."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option [@ocaml.doc "The list of tags for the resource."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all tags on a SimSpace Weaver resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: SimSpaceWeaverArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (SimSpaceWeaverArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        SimSpaceWeaverArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" SimSpaceWeaverArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all tags on a SimSpace Weaver resource."]
module ListSimulationsOutput =
  struct
    type nonrec t =
      {
      nextToken: OptionalString.t option
        [@ocaml.doc
          "If SimSpace Weaver returns nextToken, then there are more results available. The value of nextToken is a unique pagination token for each page. To retrieve the next page, call the operation again using the returned token. Keep all other arguments unchanged. If no results remain, then nextToken is set to null. Each pagination token expires after 24 hours. If you provide a token that isn't valid, then you receive an HTTP 400 ValidationException error."];
      simulations: SimulationList.t option
        [@ocaml.doc "The list of simulations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?simulations -> fun () -> { nextToken; simulations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | "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))]
      | `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
        [("NextToken", (Option.map x.nextToken ~f:OptionalString.to_value));
        ("Simulations",
          (Option.map x.simulations ~f:SimulationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulations =
        (Option.map ~f:SimulationList.of_xml)
          (Xml.child xml_arg0 "Simulations") in
      let nextToken =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?simulations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulations = field_map json__ "Simulations" SimulationList.of_json in
      let nextToken = field_map json__ "NextToken" OptionalString.of_json in
      make ?simulations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SimSpace Weaver simulations in the Amazon Web Services account used to make the API call."]
module ListSimulationsInput =
  struct
    type nonrec t =
      {
      maxResults: PositiveInteger.t option
        [@ocaml.doc "The maximum number of simulations to list."];
      nextToken: OptionalString.t option
        [@ocaml.doc
          "If SimSpace Weaver returns nextToken, then there are more results available. The value of nextToken is a unique pagination token for each page. To retrieve the next page, call the operation again using the returned token. Keep all other arguments unchanged. If no results remain, then nextToken is set to null. Each pagination token expires after 24 hours. If you provide a token that isn't valid, then you receive an HTTP 400 ValidationException error."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults ~f:PositiveInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:OptionalString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:PositiveInteger.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" OptionalString.of_json in
      let maxResults = field_map json__ "MaxResults" PositiveInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SimSpace Weaver simulations in the Amazon Web Services account used to make the API call."]
module ListAppsOutput =
  struct
    type nonrec t =
      {
      apps: SimulationAppList.t option
        [@ocaml.doc "The list of apps for the given simulation and domain."];
      nextToken: OptionalString.t option
        [@ocaml.doc
          "If SimSpace Weaver returns nextToken, then there are more results available. The value of nextToken is a unique pagination token for each page. To retrieve the next page, call the operation again using the returned token. Keep all other arguments unchanged. If no results remain, then nextToken is set to null. Each pagination token expires after 24 hours. If you provide a token that isn't valid, then you receive an HTTP 400 ValidationException error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apps = fun ?nextToken -> fun () -> { apps; nextToken }
    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)
      | "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)
      | "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))]
      | `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
        [("Apps", (Option.map x.apps ~f:SimulationAppList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:OptionalString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let apps =
        (Option.map ~f:SimulationAppList.of_xml) (Xml.child xml_arg0 "Apps") in
      make ?nextToken ?apps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" OptionalString.of_json in
      let apps = field_map json__ "Apps" SimulationAppList.of_json in
      make ?nextToken ?apps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all custom apps or service apps for the given simulation and domain."]
module ListAppsInput =
  struct
    type nonrec t =
      {
      domain: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the domain that you want to list apps for."];
      maxResults: PositiveInteger.t option
        [@ocaml.doc "The maximum number of apps to list."];
      nextToken: OptionalString.t option
        [@ocaml.doc
          "If SimSpace Weaver returns nextToken, then there are more results available. The value of nextToken is a unique pagination token for each page. To retrieve the next page, call the operation again using the returned token. Keep all other arguments unchanged. If no results remain, then nextToken is set to null. Each pagination token expires after 24 hours. If you provide a token that isn't valid, then you receive an HTTP 400 ValidationException error."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc
          "The name of the simulation that you want to list apps for."]}
    let context_ = "ListAppsInput"
    let make ?domain =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~simulation ->
            fun () -> { domain; maxResults; nextToken; simulation }
    let to_value x =
      structure_to_value
        [("domain",
           (Option.map x.domain ~f:SimSpaceWeaverResourceName.to_value));
        ("maxResults", (Option.map x.maxResults ~f:PositiveInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:OptionalString.to_value));
        ("simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "simulation") in
      let nextToken =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let domain =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "domain") in
      make ~simulation ?nextToken ?maxResults ?domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let nextToken = field_map json__ "NextToken" OptionalString.of_json in
      let maxResults = field_map json__ "MaxResults" PositiveInteger.of_json in
      let domain =
        field_map json__ "Domain" SimSpaceWeaverResourceName.of_json in
      make ~simulation ?nextToken ?maxResults ?domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all custom apps or service apps for the given simulation and domain."]
module DescribeSimulationOutput =
  struct
    type nonrec t =
      {
      arn: SimSpaceWeaverArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the simulation. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time when the simulation was created, expressed as the number of seconds and milliseconds in UTC since the Unix epoch (0:0:0.000, January 1, 1970)."];
      description: Description.t option
        [@ocaml.doc "The description of the simulation."];
      executionId: UUID.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for this simulation."];
      liveSimulationState: LiveSimulationState.t option
        [@ocaml.doc
          "A collection of additional state information, such as domain and clock configuration."];
      loggingConfiguration: LoggingConfiguration.t option
        [@ocaml.doc
          "Settings that control how SimSpace Weaver handles your simulation log data."];
      maximumDuration: TimeToLiveString.t option
        [@ocaml.doc
          "The maximum running time of the simulation, specified as a number of minutes (m or M), hours (h or H), or days (d or D). The simulation stops when it reaches this limit. The maximum value is 14D, or its equivalent in the other units. The default value is 14D. A value equivalent to 0 makes the simulation immediately transition to Stopping as soon as it reaches Started."];
      name: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the simulation."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Identity and Access Management (IAM) role that the simulation assumes to perform actions. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference. For more information about IAM roles, see IAM roles in the Identity and Access Management User Guide."];
      schemaError: OptionalString.t option
        [@ocaml.doc
          "An error message that SimSpace Weaver returns only if there is a problem with the simulation schema."];
      schemaS3Location: S3Location.t option
        [@ocaml.doc
          "The location of the simulation schema in Amazon Simple Storage Service (Amazon S3). For more information about Amazon S3, see the Amazon Simple Storage Service User Guide ."];
      snapshotS3Location: S3Location.t option ;
      startError: OptionalString.t option
        [@ocaml.doc
          "An error message that SimSpace Weaver returns only if a problem occurs when the simulation is in the STARTING state."];
      status: SimulationStatus.t option
        [@ocaml.doc "The current lifecycle state of the simulation."];
      targetStatus: SimulationTargetStatus.t option
        [@ocaml.doc "The desired lifecycle state of the simulation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?creationTime ->
        fun ?description ->
          fun ?executionId ->
            fun ?liveSimulationState ->
              fun ?loggingConfiguration ->
                fun ?maximumDuration ->
                  fun ?name ->
                    fun ?roleArn ->
                      fun ?schemaError ->
                        fun ?schemaS3Location ->
                          fun ?snapshotS3Location ->
                            fun ?startError ->
                              fun ?status ->
                                fun ?targetStatus ->
                                  fun () ->
                                    {
                                      arn;
                                      creationTime;
                                      description;
                                      executionId;
                                      liveSimulationState;
                                      loggingConfiguration;
                                      maximumDuration;
                                      name;
                                      roleArn;
                                      schemaError;
                                      schemaS3Location;
                                      snapshotS3Location;
                                      startError;
                                      status;
                                      targetStatus
                                    }
    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)
      | "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)
      | "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))]
      | `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
        [("Arn", (Option.map x.arn ~f:SimSpaceWeaverArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ExecutionId", (Option.map x.executionId ~f:UUID.to_value));
        ("LiveSimulationState",
          (Option.map x.liveSimulationState ~f:LiveSimulationState.to_value));
        ("LoggingConfiguration",
          (Option.map x.loggingConfiguration ~f:LoggingConfiguration.to_value));
        ("MaximumDuration",
          (Option.map x.maximumDuration ~f:TimeToLiveString.to_value));
        ("Name", (Option.map x.name ~f:SimSpaceWeaverResourceName.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("SchemaError",
          (Option.map x.schemaError ~f:OptionalString.to_value));
        ("SchemaS3Location",
          (Option.map x.schemaS3Location ~f:S3Location.to_value));
        ("SnapshotS3Location",
          (Option.map x.snapshotS3Location ~f:S3Location.to_value));
        ("StartError", (Option.map x.startError ~f:OptionalString.to_value));
        ("Status", (Option.map x.status ~f:SimulationStatus.to_value));
        ("TargetStatus",
          (Option.map x.targetStatus ~f:SimulationTargetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetStatus =
        (Option.map ~f:SimulationTargetStatus.of_xml)
          (Xml.child xml_arg0 "TargetStatus") in
      let status =
        (Option.map ~f:SimulationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let startError =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "StartError") in
      let snapshotS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "SnapshotS3Location") in
      let schemaS3Location =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "SchemaS3Location") in
      let schemaError =
        (Option.map ~f:OptionalString.of_xml)
          (Xml.child xml_arg0 "SchemaError") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let name =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let maximumDuration =
        (Option.map ~f:TimeToLiveString.of_xml)
          (Xml.child xml_arg0 "MaximumDuration") in
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      let liveSimulationState =
        (Option.map ~f:LiveSimulationState.of_xml)
          (Xml.child xml_arg0 "LiveSimulationState") in
      let executionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "ExecutionId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let arn =
        (Option.map ~f:SimSpaceWeaverArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?targetStatus ?status ?startError ?snapshotS3Location
        ?schemaS3Location ?schemaError ?roleArn ?name ?maximumDuration
        ?loggingConfiguration ?liveSimulationState ?executionId ?description
        ?creationTime ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetStatus =
        field_map json__ "TargetStatus" SimulationTargetStatus.of_json in
      let status = field_map json__ "Status" SimulationStatus.of_json in
      let startError = field_map json__ "StartError" OptionalString.of_json in
      let snapshotS3Location =
        field_map json__ "SnapshotS3Location" S3Location.of_json in
      let schemaS3Location =
        field_map json__ "SchemaS3Location" S3Location.of_json in
      let schemaError = field_map json__ "SchemaError" OptionalString.of_json in
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let name = field_map json__ "Name" SimSpaceWeaverResourceName.of_json in
      let maximumDuration =
        field_map json__ "MaximumDuration" TimeToLiveString.of_json in
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      let liveSimulationState =
        field_map json__ "LiveSimulationState" LiveSimulationState.of_json in
      let executionId = field_map json__ "ExecutionId" UUID.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let arn = field_map json__ "Arn" SimSpaceWeaverArn.of_json in
      make ?targetStatus ?status ?startError ?snapshotS3Location
        ?schemaS3Location ?schemaError ?roleArn ?name ?maximumDuration
        ?loggingConfiguration ?liveSimulationState ?executionId ?description
        ?creationTime ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the current state of the given simulation."]
module DescribeSimulationInput =
  struct
    type nonrec t =
      {
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "DescribeSimulationInput"
    let make ~simulation = fun () -> { simulation }
    let to_value x =
      structure_to_value
        [("simulation",
           (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "simulation") in
      make ~simulation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      make ~simulation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the current state of the given simulation."]
module DescribeAppOutput =
  struct
    type nonrec t =
      {
      description: Description.t option
        [@ocaml.doc "The description of the app."];
      domain: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the domain of the app."];
      endpointInfo: SimulationAppEndpointInfo.t option
        [@ocaml.doc
          "Information about the network endpoint for the custom app. You can use the endpoint to connect to the custom app."];
      launchOverrides: LaunchOverrides.t option ;
      name: SimSpaceWeaverLongResourceName.t option
        [@ocaml.doc "The name of the app."];
      simulation: SimSpaceWeaverResourceName.t option
        [@ocaml.doc "The name of the simulation of the app."];
      status: SimulationAppStatus.t option
        [@ocaml.doc "The current lifecycle state of the custom app."];
      targetStatus: SimulationAppTargetStatus.t option
        [@ocaml.doc "The desired lifecycle state of the custom app."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?domain ->
        fun ?endpointInfo ->
          fun ?launchOverrides ->
            fun ?name ->
              fun ?simulation ->
                fun ?status ->
                  fun ?targetStatus ->
                    fun () ->
                      {
                        description;
                        domain;
                        endpointInfo;
                        launchOverrides;
                        name;
                        simulation;
                        status;
                        targetStatus
                      }
    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)
      | "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)
      | "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))]
      | `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
        [("Description", (Option.map x.description ~f:Description.to_value));
        ("Domain",
          (Option.map x.domain ~f:SimSpaceWeaverResourceName.to_value));
        ("EndpointInfo",
          (Option.map x.endpointInfo ~f:SimulationAppEndpointInfo.to_value));
        ("LaunchOverrides",
          (Option.map x.launchOverrides ~f:LaunchOverrides.to_value));
        ("Name",
          (Option.map x.name ~f:SimSpaceWeaverLongResourceName.to_value));
        ("Simulation",
          (Option.map x.simulation ~f:SimSpaceWeaverResourceName.to_value));
        ("Status", (Option.map x.status ~f:SimulationAppStatus.to_value));
        ("TargetStatus",
          (Option.map x.targetStatus ~f:SimulationAppTargetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetStatus =
        (Option.map ~f:SimulationAppTargetStatus.of_xml)
          (Xml.child xml_arg0 "TargetStatus") in
      let status =
        (Option.map ~f:SimulationAppStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let simulation =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Simulation") in
      let name =
        (Option.map ~f:SimSpaceWeaverLongResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let launchOverrides =
        (Option.map ~f:LaunchOverrides.of_xml)
          (Xml.child xml_arg0 "LaunchOverrides") in
      let endpointInfo =
        (Option.map ~f:SimulationAppEndpointInfo.of_xml)
          (Xml.child xml_arg0 "EndpointInfo") in
      let domain =
        (Option.map ~f:SimSpaceWeaverResourceName.of_xml)
          (Xml.child xml_arg0 "Domain") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      make ?targetStatus ?status ?simulation ?name ?launchOverrides
        ?endpointInfo ?domain ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetStatus =
        field_map json__ "TargetStatus" SimulationAppTargetStatus.of_json in
      let status = field_map json__ "Status" SimulationAppStatus.of_json in
      let simulation =
        field_map json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let name =
        field_map json__ "Name" SimSpaceWeaverLongResourceName.of_json in
      let launchOverrides =
        field_map json__ "LaunchOverrides" LaunchOverrides.of_json in
      let endpointInfo =
        field_map json__ "EndpointInfo" SimulationAppEndpointInfo.of_json in
      let domain =
        field_map json__ "Domain" SimSpaceWeaverResourceName.of_json in
      let description = field_map json__ "Description" Description.of_json in
      make ?targetStatus ?status ?simulation ?name ?launchOverrides
        ?endpointInfo ?domain ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the state of the given custom app."]
module DescribeAppInput =
  struct
    type nonrec t =
      {
      app: SimSpaceWeaverLongResourceName.t
        [@ocaml.doc "The name of the app."];
      domain: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the domain of the app."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation of the app."]}
    let context_ = "DescribeAppInput"
    let make ~app =
      fun ~domain -> fun ~simulation -> fun () -> { app; domain; simulation }
    let to_value x =
      structure_to_value
        [("app", (Some (SimSpaceWeaverLongResourceName.to_value x.app)));
        ("domain", (Some (SimSpaceWeaverResourceName.to_value x.domain)));
        ("simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "simulation") in
      let domain =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domain") in
      let app =
        SimSpaceWeaverLongResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "app") in
      make ~simulation ~domain ~app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let domain =
        field_map_exn json__ "Domain" SimSpaceWeaverResourceName.of_json in
      let app =
        field_map_exn json__ "App" SimSpaceWeaverLongResourceName.of_json in
      make ~simulation ~domain ~app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the state of the given custom app."]
module DeleteSimulationOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Deletes all SimSpace Weaver resources assigned to the given simulation. Your simulation uses resources in other Amazon Web Services. This API operation doesn't delete resources in other Amazon Web Services."]
module DeleteSimulationInput =
  struct
    type nonrec t =
      {
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "DeleteSimulationInput"
    let make ~simulation = fun () -> { simulation }
    let to_value x =
      structure_to_value
        [("simulation",
           (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "simulation") in
      make ~simulation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      make ~simulation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes all SimSpace Weaver resources assigned to the given simulation. Your simulation uses resources in other Amazon Web Services. This API operation doesn't delete resources in other Amazon Web Services."]
module DeleteAppOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 "Deletes the instance of the given custom app."]
module DeleteAppInput =
  struct
    type nonrec t =
      {
      app: SimSpaceWeaverResourceName.t [@ocaml.doc "The name of the app."];
      domain: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the domain of the app."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation of the app."]}
    let context_ = "DeleteAppInput"
    let make ~app =
      fun ~domain -> fun ~simulation -> fun () -> { app; domain; simulation }
    let to_value x =
      structure_to_value
        [("app", (Some (SimSpaceWeaverResourceName.to_value x.app)));
        ("domain", (Some (SimSpaceWeaverResourceName.to_value x.domain)));
        ("simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "simulation") in
      let domain =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domain") in
      let app =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "app") in
      make ~simulation ~domain ~app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let domain =
        field_map_exn json__ "Domain" SimSpaceWeaverResourceName.of_json in
      let app = field_map_exn json__ "App" SimSpaceWeaverResourceName.of_json in
      make ~simulation ~domain ~app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the instance of the given custom app."]
module CreateSnapshotOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Creates a snapshot of the specified simulation. A snapshot is a file that contains simulation state data at a specific time. The state data saved in a snapshot includes entity data from the State Fabric, the simulation configuration specified in the schema, and the clock tick number. You can use the snapshot to initialize a new simulation. For more information about snapshots, see Snapshots in the SimSpace Weaver User Guide. You specify a Destination when you create a snapshot. The Destination is the name of an Amazon S3 bucket and an optional ObjectKeyPrefix. The ObjectKeyPrefix is usually the name of a folder in the bucket. SimSpace Weaver creates a snapshot folder inside the Destination and places the snapshot file there. The snapshot file is an Amazon S3 object. It has an object key with the form: object-key-prefix/snapshot/simulation-name-YYMMdd-HHmm-ss.zip, where: YY is the 2-digit year MM is the 2-digit month dd is the 2-digit day of the month HH is the 2-digit hour (24-hour clock) mm is the 2-digit minutes ss is the 2-digit seconds"]
module CreateSnapshotInput =
  struct
    type nonrec t =
      {
      destination: S3Destination.t
        [@ocaml.doc
          "The Amazon S3 bucket and optional folder (object key prefix) where SimSpace Weaver creates the snapshot file. The Amazon S3 bucket must be in the same Amazon Web Services Region as the simulation."];
      simulation: SimSpaceWeaverResourceName.t
        [@ocaml.doc "The name of the simulation."]}
    let context_ = "CreateSnapshotInput"
    let make ~destination =
      fun ~simulation -> fun () -> { destination; simulation }
    let to_value x =
      structure_to_value
        [("Destination", (Some (S3Destination.to_value x.destination)));
        ("Simulation",
          (Some (SimSpaceWeaverResourceName.to_value x.simulation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simulation =
        SimSpaceWeaverResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Simulation") in
      let destination =
        S3Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      make ~simulation ~destination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simulation =
        field_map_exn json__ "Simulation" SimSpaceWeaverResourceName.of_json in
      let destination =
        field_map_exn json__ "Destination" S3Destination.of_json in
      make ~simulation ~destination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a snapshot of the specified simulation. A snapshot is a file that contains simulation state data at a specific time. The state data saved in a snapshot includes entity data from the State Fabric, the simulation configuration specified in the schema, and the clock tick number. You can use the snapshot to initialize a new simulation. For more information about snapshots, see Snapshots in the SimSpace Weaver User Guide. You specify a Destination when you create a snapshot. The Destination is the name of an Amazon S3 bucket and an optional ObjectKeyPrefix. The ObjectKeyPrefix is usually the name of a folder in the bucket. SimSpace Weaver creates a snapshot folder inside the Destination and places the snapshot file there. The snapshot file is an Amazon S3 object. It has an object key with the form: object-key-prefix/snapshot/simulation-name-YYMMdd-HHmm-ss.zip, where: YY is the 2-digit year MM is the 2-digit month dd is the 2-digit day of the month HH is the 2-digit hour (24-hour clock) mm is the 2-digit minutes ss is the 2-digit seconds"]