package awso-async
Source file io.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 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127(* 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_iotfleetwise open Awso_async module Io = Http.Io let eval ?endpoint_url ?cfg endpoint input = Io.bind (Io.resolve_cfg cfg) (fun cfg -> let meth = Endpoints.method_of_endpoint endpoint in let uri = Endpoints.uri_of_endpoint endpoint input in Io.map (Io.call ?endpoint_url ~cfg ~service:Values.service meth (Endpoints.to_request endpoint input) uri) (fun resp_result -> Endpoints.of_response endpoint resp_result)) let associate_vehicle_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateVehicleFleet input let batch_create_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchCreateVehicle input let batch_update_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchUpdateVehicle input let create_campaign ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateCampaign input let create_decoder_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDecoderManifest input let create_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateFleet input let create_model_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateModelManifest input let create_signal_catalog ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSignalCatalog input let create_state_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateStateTemplate input let create_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateVehicle input let delete_campaign ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteCampaign input let delete_decoder_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDecoderManifest input let delete_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteFleet input let delete_model_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteModelManifest input let delete_signal_catalog ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSignalCatalog input let delete_state_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteStateTemplate input let delete_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteVehicle input let disassociate_vehicle_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateVehicleFleet input let get_campaign ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCampaign input let get_decoder_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDecoderManifest input let get_encryption_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetEncryptionConfiguration input let get_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetFleet input let get_logging_options ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLoggingOptions input let get_model_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetModelManifest input let get_register_account_status ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRegisterAccountStatus input let get_signal_catalog ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSignalCatalog input let get_state_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetStateTemplate input let get_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetVehicle input let get_vehicle_status ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetVehicleStatus input let import_decoder_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportDecoderManifest input let import_signal_catalog ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportSignalCatalog input let list_campaigns ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCampaigns input let list_decoder_manifest_network_interfaces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDecoderManifestNetworkInterfaces input let list_decoder_manifest_signals ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDecoderManifestSignals input let list_decoder_manifests ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDecoderManifests input let list_fleets ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListFleets input let list_fleets_for_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListFleetsForVehicle input let list_model_manifest_nodes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListModelManifestNodes input let list_model_manifests ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListModelManifests input let list_signal_catalog_nodes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSignalCatalogNodes input let list_signal_catalogs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSignalCatalogs input let list_state_templates ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListStateTemplates input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_vehicles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListVehicles input let list_vehicles_in_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListVehiclesInFleet input let put_encryption_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutEncryptionConfiguration input let put_logging_options ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutLoggingOptions input let register_account ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RegisterAccount input let tag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TagResource input let untag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UntagResource input let update_campaign ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateCampaign input let update_decoder_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDecoderManifest input let update_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateFleet input let update_model_manifest ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateModelManifest input let update_signal_catalog ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateSignalCatalog input let update_state_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateStateTemplate input let update_vehicle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateVehicle input