From fd3b4c9747bc631a900a881bfdaadc65124cf0d1 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Sat, 2 Oct 2021 12:03:00 +0200
Subject: accounts: Expect a reason for an authorization prompt

---
 src/scm/webid-oidc/client/application.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/scm/webid-oidc/client/application.scm')

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)
-- 
cgit v1.2.3