From d26ea093573932b908114b1890a9c84a93a830e2 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 12 Oct 2021 17:12:11 +0200 Subject: content negociation: fix it --- src/scm/webid-oidc/serve.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/scm/webid-oidc/serve.scm b/src/scm/webid-oidc/serve.scm index 76c58fc..1e920fb 100644 --- a/src/scm/webid-oidc/serve.scm +++ b/src/scm/webid-oidc/serve.scm @@ -79,7 +79,7 @@ (make-exception (make-not-acceptable client-accepts path content-type) (make-exception-with-message final-message)))) - (let ((request (caar accepts))) + (let ((request (car accepts))) (cond ((or (eq? request content-type) (eq? request '*/*)) -- cgit v1.2.3