blob: 6d59c61ead7f63fa552af7eeef0586a431c43690 (
plain)
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
|
(use-modules (aws cloudformation)
(aws cloudformation ec2)
(aws cloudformation s3)
(aws cloudformation utils json)
(oop goops))
(define security-group
(make <security-group>
#:id 'security-group
#:group-description "CFN Test"
#:vpc-id "vpc-redacted"
#:security-group-egress (list
(make <security-group/egress>
#:ip-protocol "tcp"
#:cidr-ip "0.0.0.0/0"
#:from-port 22
#:to-port 22))
#:security-group-ingress (list
(make <security-group/ingress>
#:ip-protocol "tcp"
#:cidr-ip "0.0.0.0/0"
#:from-port 0
#:to-port 65535))))
(define ec2-instance
(make <instance>
#:id 'instance
#:image-id "ami-0bbe6b35405ecebdb"
#:key-name "dthompson"
#:instance-type "t3.nano"
#:security-group-ids (list security-group)
#:tags (list (make <tag> #:key "Name" #:value "CFN Test"))))
(define bucket
(make <bucket>
#:id 'bucket
#:bucket-name "foo.example.com"))
(define stack
(make <cloudformation-stack>
#:resources (list ec2-instance bucket)))
(write-json (to-json stack) (current-output-port))
(newline)
|
