From ca02b8fcce5170b0fb1ee6ffe5385124e2611644 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 17 Apr 2021 22:56:09 +0200
Subject: Add support for Cost Explorer API.

---
 aws/serialize.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'aws/serialize.scm')

diff --git a/aws/serialize.scm b/aws/serialize.scm
index c3fcaf3..1a8be8b 100644
--- a/aws/serialize.scm
+++ b/aws/serialize.scm
@@ -25,6 +25,10 @@
             aws-value->scm
             aws-value->sxml))
 
+;; List of types whose constructor should not be serialized
+(define %skip
+  '(Expression TagValues DateInterval)) ; ce API
+
 ;; See https://docs.aws.amazon.com/AWSEC2/latest/APIReference/Query-Requests.html
 (define* (serialize-aws-value thing)
   "Return a list of strings that together should form the request
@@ -104,7 +108,7 @@ which can easily be converted to JSON."
                               .
                               ,(aws-value->scm value)))))
                        (aws-structure-members thing))))
-      (if strip-name?
+      (if (or strip-name? (member (aws-structure-aws-name thing) %skip))
           members
           `((,(format #false "~a" (aws-structure-aws-name thing))
              . ,members)))))
-- 
cgit v1.2.3