diff options
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 |