summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-10-12 17:12:11 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-10-12 18:51:30 +0200
commitd26ea093573932b908114b1890a9c84a93a830e2 (patch)
tree9f6d73e052cfd6b54a50162ba585d0f2ea9facfc
parent8f8fb9740ac9990e152f198e5247e67a8e8ee2f2 (diff)
content negociation: fix it
-rw-r--r--src/scm/webid-oidc/serve.scm2
1 files changed, 1 insertions, 1 deletions
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 '*/*))