aws/request: Only process server response if it exists.

1 files changed, 6 insertions, 3 deletions

diff --git a/aws/request.scm b/aws/request.scm
index e8ade5c..f9662b8 100644
--- a/aws/request.scm
+++ b/aws/request.scm
@@ -336,11 +336,14 @@ corresponding value in INPUT."
         (let ((server-text (match body
                              ((? bytevector? bv)
                               (utf8->string bv))
-                             ((? string? s) s))))
+                             ((? string? s) s)
+                             (anything anything))))
           (match (response-content-type response)
             ((or ('application/x-amz-json-1.1 . rest)
                  ('application/json . rest))
-             (json-string->scm server-text))
+             (or (and=> server-text json-string->scm)
+                 #true))
             (('text/xml . rest)
-             (xml->sxml server-text))
+             (or (and=> server-text xml->sxml)
+                 #true))
             (_ server-text)))))))