summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-11-11 16:47:31 +0000
committerVivien Kraus <vivien@planete-kraus.eu>2021-11-11 16:58:17 +0000
commit037c3c91459900a1828713db694cf21b0045497b (patch)
tree43084adf2bf042165b767b0927598490b63eaf94
parent0f8a94bc223fd19891a9c5bb667f4ce3704ecb8d (diff)
Accounts: fix error handling
-rw-r--r--src/scm/webid-oidc/client/accounts.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/client/accounts.scm b/src/scm/webid-oidc/client/accounts.scm
index 3de91b3..7868139 100644
--- a/src/scm/webid-oidc/client/accounts.scm
+++ b/src/scm/webid-oidc/client/accounts.scm
@@ -350,7 +350,7 @@
(let ((final-message
(format #f (G_ "The ID token delivered by the identity provider ~s is for issuer ~s.")
(uri->string issuer)
- (id:id-token-iss id-token))))
+ (id:iss id-token))))
(raise-exception
(make-exception
(make-token-request-failed response response-body)