diff options
Diffstat (limited to 'aws')
| -rw-r--r-- | aws/request.scm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/aws/request.scm b/aws/request.scm index d311ec2..7ccb6c6 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -26,8 +26,10 @@ #:use-module (gcrypt hmac) #:use-module (rnrs bytevectors) #:use-module (web client) + #:use-module ((web response) #:select (response-content-type)) #:use-module ((web http) #:select (header-writer declare-header!)) #:use-module (sxml simple) + #:use-module (json) #:export (make-operation->request serialize-aws-value)) ;;; Commentary: @@ -264,7 +266,13 @@ (_ "")) #:headers new-headers)) (lambda (response body) - (xml->sxml (match body - ((? bytevector? bv) - (utf8->string bv)) - ((? string? s) s))))))) + (let ((server-text (match body + ((? bytevector? bv) + (utf8->string bv)) + ((? string? s) s)))) + (match (response-content-type response) + (('application/x-amz-json-1.1 . rest) + (json-string->scm server-text)) + (('text/xml . rest) + (xml->sxml server-text)) + (_ server-text))))))) |