From e2fea447f29d276f025d99df638437ab7df89441 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 27 Sep 2021 13:18:40 +0200 Subject: client: rename client-key-pair and client-redirect-uri by dropping 'client-' --- src/scm/webid-oidc/client/accounts.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/scm/webid-oidc/client/accounts.scm') 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 key-pair -- cgit v1.2.3