diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-27 13:18:40 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-01 12:32:20 +0200 |
| commit | e2fea447f29d276f025d99df638437ab7df89441 (patch) | |
| tree | 04cc9841224dd4e97c68cf8a0b9bf49da4886671 /src/scm/webid-oidc/client/accounts.scm | |
| parent | 7a2b3bb4bb84ff0091fa39f03d3c61d83f9a1e6c (diff) | |
client: rename client-key-pair and client-redirect-uri by dropping 'client-'
Diffstat (limited to 'src/scm/webid-oidc/client/accounts.scm')
| -rw-r--r-- | src/scm/webid-oidc/client/accounts.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/client/accounts.scm b/src/scm/webid-oidc/client/accounts.scm index 9546263..98d91a1 100644 --- a/src/scm/webid-oidc/client/accounts.scm +++ b/src/scm/webid-oidc/client/accounts.scm @@ -199,7 +199,7 @@ ,(uri-encode value)) "="))) `((client_id . ,(uri->string (client:client-id client))) - (redirect_uri . ,(uri->string (client:client-redirect-uri client))) + (redirect_uri . ,(uri->string (client:redirect-uri client))) ,@(let ((state (authorization-state))) (if state `((state . ,state)) @@ -207,7 +207,7 @@ "&")))) ((authorization-process) authorization-uri #:issuer issuer)))) (unless key-pair - (set! key-pair (client:client-key-pair client))) + (set! key-pair (client:key-pair client))) (let ((dpop-proof (issue <dpop-proof> key-pair |