diff options
| -rw-r--r-- | aws/request.scm | 9 |
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))))))) |