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(* 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_textract 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 analyze_document ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AnalyzeDocument input let analyze_expense ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AnalyzeExpense input let analyze_i_d ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AnalyzeID input let create_adapter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateAdapter input let create_adapter_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateAdapterVersion input let delete_adapter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteAdapter input let delete_adapter_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteAdapterVersion input let detect_document_text ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectDocumentText input let get_adapter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAdapter input let get_adapter_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAdapterVersion input let get_document_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentAnalysis input let get_document_text_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentTextDetection input let get_expense_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetExpenseAnalysis input let get_lending_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLendingAnalysis input let get_lending_analysis_summary ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLendingAnalysisSummary input let list_adapter_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAdapterVersions input let list_adapters ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAdapters input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let start_document_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartDocumentAnalysis input let start_document_text_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartDocumentTextDetection input let start_expense_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartExpenseAnalysis input let start_lending_analysis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartLendingAnalysis 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_adapter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAdapter input