caching web client in main program: handle cases where the response is empty

1 files changed, 6 insertions, 3 deletions

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