package awso-eio
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 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156(* 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_wellarchitected open Awso_eio 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_lenses ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateLenses input let associate_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateProfiles input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateLensShare input let create_lens_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateLensVersion input let create_milestone ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateMilestone input let create_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateProfile input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateProfileShare input let create_review_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateReviewTemplate input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateTemplateShare input let create_workload ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateWorkload input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateWorkloadShare input let delete_lens ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteLens input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteLensShare input let delete_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfile input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfileShare input let delete_review_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteReviewTemplate input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteTemplateShare input let delete_workload ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteWorkload input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteWorkloadShare input let disassociate_lenses ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateLenses input let disassociate_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateProfiles input let export_lens ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ExportLens input let get_answer ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAnswer input let get_consolidated_report ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetConsolidatedReport input let get_global_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetGlobalSettings input let get_lens ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLens input let get_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLensReview input let get_lens_review_report ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLensReviewReport input let get_lens_version_difference ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLensVersionDifference input let get_milestone ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMilestone input let get_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfile input let get_profile_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfileTemplate input let get_review_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetReviewTemplate input let get_review_template_answer ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetReviewTemplateAnswer input let get_review_template_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetReviewTemplateLensReview input let get_workload ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkload input let import_lens ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportLens input let list_answers ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAnswers input let list_check_details ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCheckDetails input let list_check_summaries ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCheckSummaries input let list_lens_review_improvements ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLensReviewImprovements input let list_lens_reviews ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLensReviews input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLensShares input let list_lenses ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLenses input let list_milestones ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListMilestones input let list_notifications ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListNotifications input let list_profile_notifications ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileNotifications input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileShares input let list_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfiles input let list_review_template_answers ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListReviewTemplateAnswers input let list_review_templates ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListReviewTemplates input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListShareInvitations input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTemplateShares input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkloadShares input let list_workloads ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkloads 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_answer ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAnswer input let update_global_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGlobalSettings input let update_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateIntegration input let update_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateLensReview input let update_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateProfile input let update_review_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplate input let update_review_template_answer ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplateAnswer input let update_review_template_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplateLensReview input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateShareInvitation input let update_workload ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateWorkload input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateWorkloadShare input let upgrade_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpgradeLensReview input let upgrade_profile_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpgradeProfileVersion input let upgrade_review_template_lens_review ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpgradeReviewTemplateLensReview input