Source file cli.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 Core
open Async
let json_arg = Command.Arg_type.create Yojson.Safe.from_string
let call ?endpoint_url ?profile ?region f m result_to_json error_to_json =
  let region =
    match region with
    | Some region -> Some (Awso.Region.of_string region)
    | None -> None in
  (Awso_async.Cfg.get_exn ?profile ?region ()) >>=
    (fun cfg ->
       (f ?endpoint_url ?cfg:(Some cfg) m) >>=
         (fun result ->
            match result with
            | Error err ->
                (match error_to_json with
                 | None ->
                     failwithf
                       "endpoint error, but no error values defined in boto"
                       ()
                 | Some to_json ->
                     let s = (err |> to_json) |> Yojson.Safe.to_string in
                     failwithf "AWS error: %s" s ())
            | Ok result ->
                ((match result_to_json with
                  | None -> print_endline "ok response from endpoint"
                  | Some to_json ->
                      ((result |> to_json) |> Yojson.Safe.to_string) |>
                        print_endline);
                 return ())))
let create_alarm_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and alarmModelDescription =
         flag "alarm-model-description" (optional string)
           ~doc:"STRING AlarmModelDescription"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and key = flag "key" (optional string) ~doc:"STRING AttributeJsonPath"
       and severity = flag "severity" (optional int) ~doc:"INT Severity"
       and alarmNotification =
         flag "alarm-notification" (optional json_arg)
           ~doc:"JSON AlarmNotification"
       and alarmEventActions =
         flag "alarm-event-actions" (optional json_arg)
           ~doc:"JSON AlarmEventActions"
       and alarmCapabilities =
         flag "alarm-capabilities" (optional json_arg)
           ~doc:"JSON AlarmCapabilities"
       and alarmModelName =
         flag "alarm-model-name" (required string)
           ~doc:"STRING AlarmModelName"
       and roleArn =
         flag "role-arn" (required string) ~doc:"STRING AmazonResourceName"
       and alarmRule =
         flag "alarm-rule" (required json_arg) ~doc:"JSON AlarmRule" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_alarm_model
           (Values.CreateAlarmModelRequest.make ?alarmModelDescription
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ?key ?severity
              ?alarmNotification:(Option.map
                                    ~f:Values.AlarmNotification.of_json
                                    alarmNotification)
              ?alarmEventActions:(Option.map
                                    ~f:Values.AlarmEventActions.of_json
                                    alarmEventActions)
              ?alarmCapabilities:(Option.map
                                    ~f:Values.AlarmCapabilities.of_json
                                    alarmCapabilities) ~alarmModelName
              ~roleArn ~alarmRule:(Values.AlarmRule.of_json alarmRule) ())
           (Some Values.CreateAlarmModelResponse.to_json)
           (Some Values.CreateAlarmModelResponse.error_to_json)])
let create_detector_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and detectorModelDescription =
         flag "detector-model-description" (optional string)
           ~doc:"STRING DetectorModelDescription"
       and key = flag "key" (optional string) ~doc:"STRING AttributeJsonPath"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and evaluationMethod =
         flag "evaluation-method" (optional json_arg)
           ~doc:"JSON EvaluationMethod"
       and detectorModelName =
         flag "detector-model-name" (required string)
           ~doc:"STRING DetectorModelName"
       and detectorModelDefinition =
         flag "detector-model-definition" (required json_arg)
           ~doc:"JSON DetectorModelDefinition"
       and roleArn =
         flag "role-arn" (required string) ~doc:"STRING AmazonResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_detector_model
           (Values.CreateDetectorModelRequest.make ?detectorModelDescription
              ?key ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?evaluationMethod:(Option.map
                                   ~f:Values.EvaluationMethod.of_json
                                   evaluationMethod) ~detectorModelName
              ~detectorModelDefinition:(Values.DetectorModelDefinition.of_json
                                          detectorModelDefinition) ~roleArn
              ()) (Some Values.CreateDetectorModelResponse.to_json)
           (Some Values.CreateDetectorModelResponse.error_to_json)])
let create_input =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and inputDescription =
         flag "input-description" (optional string)
           ~doc:"STRING InputDescription"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and inputName =
         flag "input-name" (required string) ~doc:"STRING InputName"
       and inputDefinition =
         flag "input-definition" (required json_arg)
           ~doc:"JSON InputDefinition" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_input
           (Values.CreateInputRequest.make ?inputDescription
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ~inputName
              ~inputDefinition:(Values.InputDefinition.of_json
                                  inputDefinition) ())
           (Some Values.CreateInputResponse.to_json)
           (Some Values.CreateInputResponse.error_to_json)])
let delete_alarm_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and alarmModelName =
         flag "alarm-model-name" (required string)
           ~doc:"STRING AlarmModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_alarm_model
           (Values.DeleteAlarmModelRequest.make ~alarmModelName ())
           (Some Values.DeleteAlarmModelResponse.to_json)
           (Some Values.DeleteAlarmModelResponse.error_to_json)])
let delete_detector_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and detectorModelName =
         flag "detector-model-name" (required string)
           ~doc:"STRING DetectorModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_detector_model
           (Values.DeleteDetectorModelRequest.make ~detectorModelName ())
           (Some Values.DeleteDetectorModelResponse.to_json)
           (Some Values.DeleteDetectorModelResponse.error_to_json)])
let delete_input =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and inputName =
         flag "input-name" (required string) ~doc:"STRING InputName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_input (Values.DeleteInputRequest.make ~inputName ())
           (Some Values.DeleteInputResponse.to_json)
           (Some Values.DeleteInputResponse.error_to_json)])
let describe_alarm_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and alarmModelVersion =
         flag "alarm-model-version" (optional string)
           ~doc:"STRING AlarmModelVersion"
       and alarmModelName =
         flag "alarm-model-name" (required string)
           ~doc:"STRING AlarmModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_alarm_model
           (Values.DescribeAlarmModelRequest.make ?alarmModelVersion
              ~alarmModelName ())
           (Some Values.DescribeAlarmModelResponse.to_json)
           (Some Values.DescribeAlarmModelResponse.error_to_json)])
let describe_detector_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and detectorModelVersion =
         flag "detector-model-version" (optional string)
           ~doc:"STRING DetectorModelVersion"
       and detectorModelName =
         flag "detector-model-name" (required string)
           ~doc:"STRING DetectorModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_detector_model
           (Values.DescribeDetectorModelRequest.make ?detectorModelVersion
              ~detectorModelName ())
           (Some Values.DescribeDetectorModelResponse.to_json)
           (Some Values.DescribeDetectorModelResponse.error_to_json)])
let describe_detector_model_analysis =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and analysisId =
         flag "analysis-id" (required string) ~doc:"STRING AnalysisId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_detector_model_analysis
           (Values.DescribeDetectorModelAnalysisRequest.make ~analysisId ())
           (Some Values.DescribeDetectorModelAnalysisResponse.to_json)
           (Some Values.DescribeDetectorModelAnalysisResponse.error_to_json)])
let describe_input =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and inputName =
         flag "input-name" (required string) ~doc:"STRING InputName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_input (Values.DescribeInputRequest.make ~inputName ())
           (Some Values.DescribeInputResponse.to_json)
           (Some Values.DescribeInputResponse.error_to_json)])
let describe_logging_options =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_logging_options
           (Values.DescribeLoggingOptionsRequest.make ())
           (Some Values.DescribeLoggingOptionsResponse.to_json)
           (Some Values.DescribeLoggingOptionsResponse.error_to_json)])
let get_detector_model_analysis_results =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxAnalysisResults"
       and analysisId =
         flag "analysis-id" (required string) ~doc:"STRING AnalysisId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_detector_model_analysis_results
           (Values.GetDetectorModelAnalysisResultsRequest.make ?nextToken
              ?maxResults ~analysisId ())
           (Some Values.GetDetectorModelAnalysisResultsResponse.to_json)
           (Some Values.GetDetectorModelAnalysisResultsResponse.error_to_json)])
let list_alarm_model_versions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and alarmModelName =
         flag "alarm-model-name" (required string)
           ~doc:"STRING AlarmModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_alarm_model_versions
           (Values.ListAlarmModelVersionsRequest.make ?nextToken ?maxResults
              ~alarmModelName ())
           (Some Values.ListAlarmModelVersionsResponse.to_json)
           (Some Values.ListAlarmModelVersionsResponse.error_to_json)])
let list_alarm_models =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_alarm_models
           (Values.ListAlarmModelsRequest.make ?nextToken ?maxResults ())
           (Some Values.ListAlarmModelsResponse.to_json)
           (Some Values.ListAlarmModelsResponse.error_to_json)])
let list_detector_model_versions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and detectorModelName =
         flag "detector-model-name" (required string)
           ~doc:"STRING DetectorModelName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_detector_model_versions
           (Values.ListDetectorModelVersionsRequest.make ?nextToken
              ?maxResults ~detectorModelName ())
           (Some Values.ListDetectorModelVersionsResponse.to_json)
           (Some Values.ListDetectorModelVersionsResponse.error_to_json)])
let list_detector_models =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_detector_models
           (Values.ListDetectorModelsRequest.make ?nextToken ?maxResults ())
           (Some Values.ListDetectorModelsResponse.to_json)
           (Some Values.ListDetectorModelsResponse.error_to_json)])
let list_input_routings =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and inputIdentifier =
         flag "input-identifier" (required json_arg)
           ~doc:"JSON InputIdentifier" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_input_routings
           (Values.ListInputRoutingsRequest.make ?maxResults ?nextToken
              ~inputIdentifier:(Values.InputIdentifier.of_json
                                  inputIdentifier) ())
           (Some Values.ListInputRoutingsResponse.to_json)
           (Some Values.ListInputRoutingsResponse.error_to_json)])
let list_inputs =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_inputs
           (Values.ListInputsRequest.make ?nextToken ?maxResults ())
           (Some Values.ListInputsResponse.to_json)
           (Some Values.ListInputsResponse.error_to_json)])
let list_tags_for_resource =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and resourceArn =
         flag "resource-arn" (required string)
           ~doc:"STRING AmazonResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_tags_for_resource
           (Values.ListTagsForResourceRequest.make ~resourceArn ())
           (Some Values.ListTagsForResourceResponse.to_json)
           (Some Values.ListTagsForResourceResponse.error_to_json)])
let put_logging_options =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loggingOptions =
         flag "logging-options" (required json_arg)
           ~doc:"JSON LoggingOptions" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_logging_options
           (Values.PutLoggingOptionsRequest.make
              ~loggingOptions:(Values.LoggingOptions.of_json loggingOptions)
              ()) None None])
let start_detector_model_analysis =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and detectorModelDefinition =
         flag "detector-model-definition" (required json_arg)
           ~doc:"JSON DetectorModelDefinition" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_detector_model_analysis
           (Values.StartDetectorModelAnalysisRequest.make
              ~detectorModelDefinition:(Values.DetectorModelDefinition.of_json
                                          detectorModelDefinition) ())
           (Some Values.StartDetectorModelAnalysisResponse.to_json)
           (Some Values.StartDetectorModelAnalysisResponse.error_to_json)])
let tag_resource =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and resourceArn =
         flag "resource-arn" (required string)
           ~doc:"STRING AmazonResourceName"
       and tags = flag "tags" (required json_arg) ~doc:"JSON Tags" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.tag_resource
           (Values.TagResourceRequest.make ~resourceArn
              ~tags:(Values.Tags.of_json tags) ())
           (Some Values.TagResourceResponse.to_json)
           (Some Values.TagResourceResponse.error_to_json)])
let untag_resource =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and resourceArn =
         flag "resource-arn" (required string)
           ~doc:"STRING AmazonResourceName"
       and tagKeys = flag "tag-keys" (required json_arg) ~doc:"JSON TagKeys" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.untag_resource
           (Values.UntagResourceRequest.make ~resourceArn
              ~tagKeys:(Values.TagKeys.of_json tagKeys) ())
           (Some Values.UntagResourceResponse.to_json)
           (Some Values.UntagResourceResponse.error_to_json)])
let update_alarm_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and alarmModelDescription =
         flag "alarm-model-description" (optional string)
           ~doc:"STRING AlarmModelDescription"
       and severity = flag "severity" (optional int) ~doc:"INT Severity"
       and alarmNotification =
         flag "alarm-notification" (optional json_arg)
           ~doc:"JSON AlarmNotification"
       and alarmEventActions =
         flag "alarm-event-actions" (optional json_arg)
           ~doc:"JSON AlarmEventActions"
       and alarmCapabilities =
         flag "alarm-capabilities" (optional json_arg)
           ~doc:"JSON AlarmCapabilities"
       and alarmModelName =
         flag "alarm-model-name" (required string)
           ~doc:"STRING AlarmModelName"
       and roleArn =
         flag "role-arn" (required string) ~doc:"STRING AmazonResourceName"
       and alarmRule =
         flag "alarm-rule" (required json_arg) ~doc:"JSON AlarmRule" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_alarm_model
           (Values.UpdateAlarmModelRequest.make ?alarmModelDescription
              ?severity
              ?alarmNotification:(Option.map
                                    ~f:Values.AlarmNotification.of_json
                                    alarmNotification)
              ?alarmEventActions:(Option.map
                                    ~f:Values.AlarmEventActions.of_json
                                    alarmEventActions)
              ?alarmCapabilities:(Option.map
                                    ~f:Values.AlarmCapabilities.of_json
                                    alarmCapabilities) ~alarmModelName
              ~roleArn ~alarmRule:(Values.AlarmRule.of_json alarmRule) ())
           (Some Values.UpdateAlarmModelResponse.to_json)
           (Some Values.UpdateAlarmModelResponse.error_to_json)])
let update_detector_model =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and detectorModelDescription =
         flag "detector-model-description" (optional string)
           ~doc:"STRING DetectorModelDescription"
       and evaluationMethod =
         flag "evaluation-method" (optional json_arg)
           ~doc:"JSON EvaluationMethod"
       and detectorModelName =
         flag "detector-model-name" (required string)
           ~doc:"STRING DetectorModelName"
       and detectorModelDefinition =
         flag "detector-model-definition" (required json_arg)
           ~doc:"JSON DetectorModelDefinition"
       and roleArn =
         flag "role-arn" (required string) ~doc:"STRING AmazonResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_detector_model
           (Values.UpdateDetectorModelRequest.make ?detectorModelDescription
              ?evaluationMethod:(Option.map
                                   ~f:Values.EvaluationMethod.of_json
                                   evaluationMethod) ~detectorModelName
              ~detectorModelDefinition:(Values.DetectorModelDefinition.of_json
                                          detectorModelDefinition) ~roleArn
              ()) (Some Values.UpdateDetectorModelResponse.to_json)
           (Some Values.UpdateDetectorModelResponse.error_to_json)])
let update_input =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and inputDescription =
         flag "input-description" (optional string)
           ~doc:"STRING InputDescription"
       and inputName =
         flag "input-name" (required string) ~doc:"STRING InputName"
       and inputDefinition =
         flag "input-definition" (required json_arg)
           ~doc:"JSON InputDefinition" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_input
           (Values.UpdateInputRequest.make ?inputDescription ~inputName
              ~inputDefinition:(Values.InputDefinition.of_json
                                  inputDefinition) ())
           (Some Values.UpdateInputResponse.to_json)
           (Some Values.UpdateInputResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("create-alarm-model", create_alarm_model);
    ("create-detector-model", create_detector_model);
    ("create-input", create_input);
    ("delete-alarm-model", delete_alarm_model);
    ("delete-detector-model", delete_detector_model);
    ("delete-input", delete_input);
    ("describe-alarm-model", describe_alarm_model);
    ("describe-detector-model", describe_detector_model);
    ("describe-detector-model-analysis", describe_detector_model_analysis);
    ("describe-input", describe_input);
    ("describe-logging-options", describe_logging_options);
    ("get-detector-model-analysis-results",
      get_detector_model_analysis_results);
    ("list-alarm-model-versions", list_alarm_model_versions);
    ("list-alarm-models", list_alarm_models);
    ("list-detector-model-versions", list_detector_model_versions);
    ("list-detector-models", list_detector_models);
    ("list-input-routings", list_input_routings);
    ("list-inputs", list_inputs);
    ("list-tags-for-resource", list_tags_for_resource);
    ("put-logging-options", put_logging_options);
    ("start-detector-model-analysis", start_detector_model_analysis);
    ("tag-resource", tag_resource);
    ("untag-resource", untag_resource);
    ("update-alarm-model", update_alarm_model);
    ("update-detector-model", update_detector_model);
    ("update-input", update_input)]