diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-20 11:25:29 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:28:51 +0200 |
| commit | e910b3ba2ded990a5193f7ea0cfad525332e4171 (patch) | |
| tree | b04e74e7c06e0a0fde5edd7ac0b8773db94cd515 /src/scm/webid-oidc/client.scm | |
| parent | dcd329af1ec765ca0fac97ef2dc18a3177d34083 (diff) | |
JWS: use GOOPS
Diffstat (limited to 'src/scm/webid-oidc/client.scm')
| -rw-r--r-- | src/scm/webid-oidc/client.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm index 5b6b0ef..006c86a 100644 --- a/src/scm/webid-oidc/client.scm +++ b/src/scm/webid-oidc/client.scm @@ -137,11 +137,12 @@ (let* ((access-token (account:access-token account)) (dpop-proof (let ((key-pair (account:key-pair account))) - (issue-dpop-proof - key-pair - #:htm method - #:htu uri - #:access-token access-token)))) + (issue <dpop-proof> + key-pair + #:jwk (public-key key-pair) + #:htm method + #:htu uri + #:access-token access-token)))) (let ((all-headers `((dpop . ,dpop-proof) (authorization . (dpop . ,access-token)) |