diff options
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 9 |
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 |