From e7eff234da04c3e350ab4a058274b613d5d1f2cf Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 6 Jul 2021 11:35:05 +0200 Subject: caching web client in main program: handle cases where the response is empty --- src/scm/webid-oidc/program.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/scm/webid-oidc/program.scm') diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index 50f0da4..3ee86d8 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -55,9 +55,12 @@ (receive (response response-body) (http-get uri #:headers headers) (format (current-error-port) "~a: GET ~a ~s: ~s ~a bytes\n" date uri-string headers response - (if (bytevector? response-body) - (bytevector-length response-body) - (string-length response-body))) + (cond + ((bytevector? response-body) + (bytevector-length response-body)) + ((string? response-body) + (string-length response-body)) + (else 0))) (values response response-body))) (define cache-http-get -- cgit v1.2.3