package smaws-clients
Amazon Web Services SDK clients using EIO
Install
Dune Dependency
Authors
Maintainers
Sources
0.1.preview1.tar.gz
md5=18fb70dbc45e8d81a341b9bed6871bab
sha512=7607dc98acaeed5803b44c9ca32d90c88e7813d4b3e3ae4ec661a0bad16c88dc1476bc780877527ea4cd5a4b7398453c1bb600ce0db14d39afa05dc4762b5ba5
doc/src/smaws-clients.dynamodb-streams/operations.ml.html
Source file operations.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
open Types let (let+) res map = Result.map map res module ListStreams = struct let error_deserializer tree path = let open Deserializers in let handler = fun handler tree path -> function | "com.amazonaws.dynamodbstreams", "InternalServerError" -> (`InternalServerError (internal_server_error_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "ResourceNotFoundException" -> (`ResourceNotFoundException (resource_not_found_exception_of_yojson tree path)) | _type -> handler tree path _type in Smaws_Lib.Protocols.AwsJson.(error_deserializer (handler Smaws_Lib.Protocols.AwsJson.Errors.default_handler) tree path) let request = fun context (request: list_streams_input) -> let input = Serializers.list_streams_input_to_yojson request in Smaws_Lib.Protocols.AwsJson.request ~shape_name:"DynamoDBStreams_20120810.ListStreams" ~service ~config:Smaws_Lib.Context.(context.config) ~http:Smaws_Lib.Context.(context.http) ~input ~output_deserializer:Deserializers.list_streams_output_of_yojson ~error_deserializer end module GetShardIterator = struct let error_deserializer tree path = let open Deserializers in let handler = fun handler tree path -> function | "com.amazonaws.dynamodbstreams", "InternalServerError" -> (`InternalServerError (internal_server_error_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "ResourceNotFoundException" -> (`ResourceNotFoundException (resource_not_found_exception_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "TrimmedDataAccessException" -> (`TrimmedDataAccessException (trimmed_data_access_exception_of_yojson tree path)) | _type -> handler tree path _type in Smaws_Lib.Protocols.AwsJson.(error_deserializer (handler Smaws_Lib.Protocols.AwsJson.Errors.default_handler) tree path) let request = fun context (request: get_shard_iterator_input) -> let input = Serializers.get_shard_iterator_input_to_yojson request in Smaws_Lib.Protocols.AwsJson.request ~shape_name:"DynamoDBStreams_20120810.GetShardIterator" ~service ~config:Smaws_Lib.Context.(context.config) ~http:Smaws_Lib.Context.(context.http) ~input ~output_deserializer:Deserializers.get_shard_iterator_output_of_yojson ~error_deserializer end module GetRecords = struct let error_deserializer tree path = let open Deserializers in let handler = fun handler tree path -> function | "com.amazonaws.dynamodbstreams", "ExpiredIteratorException" -> (`ExpiredIteratorException (expired_iterator_exception_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "InternalServerError" -> (`InternalServerError (internal_server_error_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "LimitExceededException" -> (`LimitExceededException (limit_exceeded_exception_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "ResourceNotFoundException" -> (`ResourceNotFoundException (resource_not_found_exception_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "TrimmedDataAccessException" -> (`TrimmedDataAccessException (trimmed_data_access_exception_of_yojson tree path)) | _type -> handler tree path _type in Smaws_Lib.Protocols.AwsJson.(error_deserializer (handler Smaws_Lib.Protocols.AwsJson.Errors.default_handler) tree path) let request = fun context (request: get_records_input) -> let input = Serializers.get_records_input_to_yojson request in Smaws_Lib.Protocols.AwsJson.request ~shape_name:"DynamoDBStreams_20120810.GetRecords" ~service ~config:Smaws_Lib.Context.(context.config) ~http:Smaws_Lib.Context.(context.http) ~input ~output_deserializer:Deserializers.get_records_output_of_yojson ~error_deserializer end module DescribeStream = struct let error_deserializer tree path = let open Deserializers in let handler = fun handler tree path -> function | "com.amazonaws.dynamodbstreams", "InternalServerError" -> (`InternalServerError (internal_server_error_of_yojson tree path)) | "com.amazonaws.dynamodbstreams", "ResourceNotFoundException" -> (`ResourceNotFoundException (resource_not_found_exception_of_yojson tree path)) | _type -> handler tree path _type in Smaws_Lib.Protocols.AwsJson.(error_deserializer (handler Smaws_Lib.Protocols.AwsJson.Errors.default_handler) tree path) let request = fun context (request: describe_stream_input) -> let input = Serializers.describe_stream_input_to_yojson request in Smaws_Lib.Protocols.AwsJson.request ~shape_name:"DynamoDBStreams_20120810.DescribeStream" ~service ~config:Smaws_Lib.Context.(context.config) ~http:Smaws_Lib.Context.(context.http) ~input ~output_deserializer:Deserializers.describe_stream_output_of_yojson ~error_deserializer end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>