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(* 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_dynamodb 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 batch_execute_statement ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchExecuteStatement input let batch_get_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchGetItem input let batch_write_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchWriteItem input let create_backup ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBackup input let create_global_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateGlobalTable input let create_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateTable input let delete_backup ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBackup input let delete_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteItem input let delete_resource_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input let delete_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteTable input let describe_backup ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBackup input let describe_continuous_backups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeContinuousBackups input let describe_contributor_insights ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeContributorInsights input let describe_endpoints ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeEndpoints input let describe_export ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeExport input let describe_global_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeGlobalTable input let describe_global_table_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeGlobalTableSettings input let describe_import ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeImport input let describe_kinesis_streaming_destination ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeKinesisStreamingDestination input let describe_limits ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeLimits input let describe_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeTable input let describe_table_replica_auto_scaling ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeTableReplicaAutoScaling input let describe_time_to_live ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeTimeToLive input let disable_kinesis_streaming_destination ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisableKinesisStreamingDestination input let enable_kinesis_streaming_destination ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.EnableKinesisStreamingDestination input let execute_statement ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ExecuteStatement input let execute_transaction ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ExecuteTransaction input let export_table_to_point_in_time ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ExportTableToPointInTime input let get_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetItem input let get_resource_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input let import_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportTable input let list_backups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBackups input let list_contributor_insights ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListContributorInsights input let list_exports ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListExports input let list_global_tables ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListGlobalTables input let list_imports ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImports input let list_tables ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTables input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsOfResource input let put_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutItem input let put_resource_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input let query ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.Query input let restore_table_from_backup ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RestoreTableFromBackup input let restore_table_to_point_in_time ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RestoreTableToPointInTime input let scan ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.Scan input let tag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TagResource input let transact_get_items ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TransactGetItems input let transact_write_items ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TransactWriteItems input let untag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UntagResource input let update_continuous_backups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateContinuousBackups input let update_contributor_insights ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateContributorInsights input let update_global_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGlobalTable input let update_global_table_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGlobalTableSettings input let update_item ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateItem input let update_kinesis_streaming_destination ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateKinesisStreamingDestination input let update_table ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateTable input let update_table_replica_auto_scaling ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateTableReplicaAutoScaling input let update_time_to_live ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateTimeToLive input