From 67eaa758f8b86353920c4b7cbb66cbb9b4fd6e7c Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 17 Aug 2021 07:44:20 +0200 Subject: Don’t save an account if it does not have a subject MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit I added a function to log in for the first time, so that we don’t have to store an account for which we know we will need to jump through the authorization endpoint hoops. --- src/scm/webid-oidc/client/accounts.scm | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'src/scm/webid-oidc/client') diff --git a/src/scm/webid-oidc/client/accounts.scm b/src/scm/webid-oidc/client/accounts.scm index 4fb16b5..d7219e3 100644 --- a/src/scm/webid-oidc/client/accounts.scm +++ b/src/scm/webid-oidc/client/accounts.scm @@ -206,18 +206,6 @@ (generate-list `(*TOP* (disfluid:accounts ,@other-accounts)) `(,account ,@parsed-accounts)))) - ((*TOP* - (disfluid:accounts - (disfluid:account - ;; the subject is not set yet - (@ (issuer ,issuer)) - ,arguments ...) - ,other-accounts ...)) - (let ((account (load-account-arguments - #f (string->uri issuer) arguments))) - (generate-list - `(*TOP* (disfluid:accounts ,@other-accounts)) - `(,account ,@parsed-accounts)))) ((*TOP* (disfluid:accounts ,whatever @@ -246,9 +234,7 @@ (when (string? issuer) (set! issuer (string->uri issuer))) `(account - (@ ,@(if subject - `((subject ,(uri->string subject))) - '()) + (@ (subject ,(uri->string subject)) (issuer ,(uri->string issuer))) ,@(if id-token `((id-token (@ (alg ,(symbol->string (id:id-token-alg id-token))) -- cgit v1.2.3