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(* 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_lex_models 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 create_bot_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBotVersion input let create_intent_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateIntentVersion input let create_slot_type_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSlotTypeVersion input let delete_bot ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBot input let delete_bot_alias ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBotAlias input let delete_bot_channel_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBotChannelAssociation input let delete_bot_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBotVersion input let delete_intent ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIntent input let delete_intent_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIntentVersion input let delete_slot_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSlotType input let delete_slot_type_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSlotTypeVersion input let delete_utterances ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUtterances input let get_bot ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBot input let get_bot_alias ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBotAlias input let get_bot_aliases ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBotAliases input let get_bot_channel_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBotChannelAssociation input let get_bot_channel_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBotChannelAssociations input let get_bot_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBotVersions input let get_bots ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBots input let get_builtin_intent ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBuiltinIntent input let get_builtin_intents ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBuiltinIntents input let get_builtin_slot_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBuiltinSlotTypes input let get_export ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetExport input let get_import ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImport input let get_intent ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntent input let get_intent_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntentVersions input let get_intents ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntents input let get_migration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMigration input let get_migrations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMigrations input let get_slot_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSlotType input let get_slot_type_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSlotTypeVersions input let get_slot_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSlotTypes input let get_utterances_view ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUtterancesView input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let put_bot ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutBot input let put_bot_alias ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutBotAlias input let put_intent ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutIntent input let put_slot_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutSlotType input let start_import ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartImport input let start_migration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartMigration 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