diff options
Diffstat (limited to 'src/scm/webid-oidc/client')
-rw-r--r-- | src/scm/webid-oidc/client/accounts.scm | 13 | ||||
-rw-r--r-- | src/scm/webid-oidc/client/application.scm | 2 |
2 files changed, 10 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/client/accounts.scm b/src/scm/webid-oidc/client/accounts.scm index 24298b0..3de91b3 100644 --- a/src/scm/webid-oidc/client/accounts.scm +++ b/src/scm/webid-oidc/client/accounts.scm @@ -112,10 +112,13 @@ (define authorization-process (make-parameter - (lambda* (uri #:key issuer) + (lambda* (uri #:key (reason #f)) (let ((final-message - (G_ (format #f "An authorization code is required to log in with ~s, it can be obtained at ~s." - (uri->string issuer) + (if reason + (format #f (G_ "an authorization code is required: ~s, it can be obtained at ~s") + reason + (uri->string uri)) + (format #f (G_ "an authorization code is required, it can be obtained at ~s") (uri->string uri))))) (raise-exception (make-exception @@ -205,7 +208,9 @@ `((state . ,state)) '())))) "&")))) - ((authorization-process) authorization-uri #:issuer issuer)))) + ((authorization-process) authorization-uri + #:reason (format #f (G_ "the application wants to manage your account at ~s") + (uri->string issuer)))))) (unless key-pair (set! key-pair (client:key-pair client))) (let ((dpop-proof diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index d448976..6263a82 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -164,7 +164,7 @@ (parameterize ((client:client (client state)) (account:authorization-process - (lambda* (uri #:key issuer) + (lambda* (uri #:key (reason #f)) (abort-to-prompt tag (lambda (continuation) |