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
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"
let ca_central_1 = "ca-central-1"
let cn_north_1 = "cn-north-1"
let cn_northwest_1 = "cn-northwest-1"
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"
let sa_east_1 = "sa-east-1"
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"
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_error of_string "";
[%expect {|Failure("invalid region: ")|}];
test_error of_string "foo";
[%expect {|Failure("invalid region: foo")|}];
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
]
;;