package smaws-clients
Amazon Web Services SDK clients using EIO
Install
Dune Dependency
Authors
Maintainers
Sources
0.1.preview1.tar.gz
md5=18fb70dbc45e8d81a341b9bed6871bab
sha512=7607dc98acaeed5803b44c9ca32d90c88e7813d4b3e3ae4ec661a0bad16c88dc1476bc780877527ea4cd5a4b7398453c1bb600ce0db14d39afa05dc4762b5ba5
doc/src/smaws-clients.route53-recovery-cluster/builders.ml.html
Source file builders.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78[@@@warning "-39"] open Types let make_validation_exception_field ~(message : string) ~(name : string) () : validation_exception_field = { message; name; } let make_update_routing_control_states_response () : update_routing_control_states_response = () let make_update_routing_control_state_entry ~(routing_control_state : routing_control_state) ~(routing_control_arn : string) () : update_routing_control_state_entry = { routing_control_state; routing_control_arn; } let make_update_routing_control_states_request ?(safety_rules_to_override : string list option) ~(update_routing_control_state_entries : update_routing_control_state_entry list) () : update_routing_control_states_request = { safety_rules_to_override; update_routing_control_state_entries; } let make_update_routing_control_state_response () : update_routing_control_state_response = () let make_update_routing_control_state_request ?(safety_rules_to_override : string list option) ~(routing_control_state : routing_control_state) ~(routing_control_arn : string) () : update_routing_control_state_request = { safety_rules_to_override; routing_control_state; routing_control_arn; } let make_routing_control ?(owner : string option) ?(routing_control_state : routing_control_state option) ?(routing_control_name : string option) ?(routing_control_arn : string option) ?(control_panel_name : string option) ?(control_panel_arn : string option) () : routing_control = { owner; routing_control_state; routing_control_name; routing_control_arn; control_panel_name; control_panel_arn; } let make_list_routing_controls_response ?(next_token : string option) ~(routing_controls : routing_control list) () : list_routing_controls_response = { next_token; routing_controls; } let make_list_routing_controls_request ?(max_results : int option) ?(next_token : string option) ?(control_panel_arn : string option) () : list_routing_controls_request = { max_results; next_token; control_panel_arn; } let make_get_routing_control_state_response ?(routing_control_name : string option) ~(routing_control_state : routing_control_state) ~(routing_control_arn : string) () : get_routing_control_state_response = { routing_control_name; routing_control_state; routing_control_arn; } let make_get_routing_control_state_request ~(routing_control_arn : string) () : get_routing_control_state_request = { routing_control_arn; }