diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2025-12-29 19:18:51 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2025-12-29 19:18:51 -0700 |
| commit | 7221c992de35e7b495f4e1f1e9e61436f4658883 (patch) | |
| tree | c056ad5ca16b17da9f0ff7484407c7c895b7fd9e | |
| parent | 88123e0f09e4e2871f111a88fad159d80b2e8c34 (diff) | |
make the code more elegant
| -rw-r--r-- | lisp/aws/aws.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/aws/aws.lisp b/lisp/aws/aws.lisp index 3460d92..27a634e 100644 --- a/lisp/aws/aws.lisp +++ b/lisp/aws/aws.lisp @@ -179,10 +179,6 @@ (defmethod get-asgs ((aws aws) filter) (let* ((command "aws autoscaling describe-auto-scaling-groups") (data (cdar (run-aws-cli aws command))) - (instances (get-instances aws (org-ckons-core::flatten (loop for asg in data - when (org-ckons-core::match-it filter (cdr (assoc :*auto-scaling-group-name asg))) - collect (loop for instance in (cdr (assoc :*instances asg)) - collect (cdr (assoc :*instance-id instance))))))) (asgs (loop for asg in data when (org-ckons-core::match-it filter (cdr (assoc :*auto-scaling-group-name asg))) collect (make-instance 'aws-asg @@ -194,7 +190,9 @@ :count-max (cdr (assoc :*max-size asg)) :count-desired (cdr (assoc :*desired-capacity asg)) :instance-ids (org-ckons-core::flatten (loop for instance in (cdr (assoc :*instances asg)) - collect (cdr (assoc :*instance-id instance)))))))) + collect (cdr (assoc :*instance-id instance))))))) + (instances (get-instances aws (org-ckons-core::flatten (loop for asg in asgs + collect (instance-ids asg)))))) (loop for instance in instances do (loop for asg in asgs when (intersection `(,(id instance)) (instance-ids asg) :test 'string=) |