summaryrefslogtreecommitdiff
path: root/src/scm/webid-oidc/client.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-07-22 11:00:12 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-07-22 12:03:13 +0200
commit4d9a10165a6c7bf8df6f86f032bf7b3412e83ae6 (patch)
tree700fcb4d4a9994c3b3274f5f2a6f7ad255e6ea19 /src/scm/webid-oidc/client.scm
parent6f93654f816ef6e3effcf57fe4360c10688210d4 (diff)
DPoP proof: support the "ath" claim
Diffstat (limited to 'src/scm/webid-oidc/client.scm')
-rw-r--r--src/scm/webid-oidc/client.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm
index aea2b7e..30cbc75 100644
--- a/src/scm/webid-oidc/client.scm
+++ b/src/scm/webid-oidc/client.scm
@@ -455,7 +455,8 @@
(error "Unknown key type of ~S." key)))
#:htm method
#:htu uri
- #:iat current-time)))
+ #:iat current-time
+ #:access-token access-token)))
(receive (response response-body)
(apply http-request uri
#:method method