diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-22 11:00:12 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-22 12:03:13 +0200 |
commit | 4d9a10165a6c7bf8df6f86f032bf7b3412e83ae6 (patch) | |
tree | 700fcb4d4a9994c3b3274f5f2a6f7ad255e6ea19 /src/scm/webid-oidc/resource-server.scm | |
parent | 6f93654f816ef6e3effcf57fe4360c10688210d4 (diff) |
DPoP proof: support the "ath" claim
Diffstat (limited to 'src/scm/webid-oidc/resource-server.scm')
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index a8e88f5..2d1c798 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -94,15 +94,15 @@ (error->str error)) #f) (lambda () - (let* ((access-token - (access-token-decode - (symbol->string (cadr authz)) - #:http-get http-get)) + (let* ((lit-access-token (symbol->string (cadr authz))) + (access-token + (access-token-decode lit-access-token + #:http-get http-get)) (cnf/jkt (access-token-cnf/jkt access-token)) (dpop-proof (dpop-proof-decode current-time jti-list method full-uri - dpop cnf/jkt))) + dpop cnf/jkt #:access-token lit-access-token))) (let ((subject (access-token-webid access-token)) (issuer (access-token-iss access-token))) (confirm-provider subject issuer #:http-get http-get) |