package awsm-codegen

  1. Overview
  2. No Docs
AWS botocore code generator

Install 

dune-project
 Dependency

github.com Edit opam file Versions (1)

Authors

  1. S
    Solvuu

Maintainers

  1. A
    Ashish Agarwal <ashish@solvuu.com>

Sources

0.1.0.tar.gz
md5=db5777910e155df33255f50c50daa046
sha512=18775715f99f5ba56c6dee40d7b4c4ab7f5d583327d2cc5c50d0cdae4c76c7b510e0ff974577cc0a9d82f497b979daf8af14f9e5741e9fbc5c83aa5928039c6b

doc/src/awsm-codegen/region.ml.html

Source file region.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
open! Core
open! Import
module Stdlib = Caml

type t = string [@@deriving sexp, compare]

let of_string (x : string) =
  match x with
  | "af-south-1"
  | "ap-east-1"
  | "ap-northeast-1"
  | "ap-northeast-2"
  | "ap-northeast-3"
  | "ap-south-1"
  | "ap-southeast-1"
  | "ap-southeast-2"
  | "ap-southeast-3"
  | "ca-central-1"
  | "cn-north-1"
  | "cn-northwest-1"
  | "eu-central-1"
  | "eu-north-1"
  | "eu-south-1"
  | "eu-west-1"
  | "eu-west-2"
  | "eu-west-3"
  | "me-south-1"
  | "sa-east-1"
  | "us-east-1"
  | "us-east-2"
  | "us-gov-east-1"
  | "us-gov-west-1"
  | "us-iso-east-1"
  | "us-iso-west-1"
  | "us-isob-east-1"
  | "us-west-1"
  | "us-west-2" -> x
  | _ -> failwith (sprintf "invalid region: %s" x)
;;

let to_string (x : t) = x

(* Asia Pacific *)
let ap_northeast_1 = "ap-northeast-1"
let ap_northeast_2 = "ap-northeast-2"
let ap_northeast_3 = "ap-northeast-3"
let ap_south_1 = "ap-south-1"
let ap_southeast_1 = "ap-southeast-1"
let ap_southeast_2 = "ap-southeast-2"

(* Canada *)
let ca_central_1 = "ca-central-1"

(* China *)
let cn_north_1 = "cn-north-1"
let cn_northwest_1 = "cn-northwest-1"

(* EU *)
let eu_central_1 = "eu-central-1"
let eu_north_1 = "eu-north-1"
let eu_west_1 = "eu-west-1"
let eu_west_2 = "eu-west-2"
let eu_west_3 = "eu-west-3"

(* South America *)
let sa_east_1 = "sa-east-1"

(* US *)
let us_east_1 = "us-east-1"
let us_east_2 = "us-east-2"
let us_west_1 = "us-west-1"
let us_west_2 = "us-west-2"

(* AWS GovCloud *)
let us_gov_east_1 = "us-gov-east-1"
let us_gov_west_1 = "us-gov-west-1"

let test_error call x =
  match call x with
  | _ -> failwith "unexpected success"
  | exception e -> Stdlib.print_endline (Stdlib.Printexc.to_string e)
;;

let%expect_test "of_string" =
  let test x = printf !"%s" (of_string x) in
  (* Test 1: empty string, error raided *)
  test_error of_string "";
  [%expect {|Failure("invalid region: ")|}];
  (* Test 2: invalid string, error raised *)
  test_error of_string "foo";
  [%expect {|Failure("invalid region: foo")|}];
  (* Test 3: valid string *)
  test "eu-central-1";
  [%expect {| eu-central-1 |}]
;;

let%expect_test "to_string" =
  let test x = printf !"%s" (to_string x) in
  test sa_east_1;
  [%expect {|sa-east-1|}]
;;

let all =
  [ ap_northeast_1
  ; ap_northeast_2
  ; ap_northeast_3
  ; ap_south_1
  ; ap_southeast_1
  ; ap_southeast_2
  ; ca_central_1
  ; cn_north_1
  ; cn_northwest_1
  ; eu_central_1
  ; eu_north_1
  ; eu_west_1
  ; eu_west_2
  ; eu_west_3
  ; sa_east_1
  ; us_east_1
  ; us_east_2
  ; us_west_1
  ; us_west_2
  ; us_gov_east_1
  ; us_gov_west_1
  ]
;;