diff options
Diffstat (limited to 'src/scm/webid-oidc/errors.scm')
| -rw-r--r-- | src/scm/webid-oidc/errors.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/errors.scm b/src/scm/webid-oidc/errors.scm index 47afeb7..514a8c9 100644 --- a/src/scm/webid-oidc/errors.scm +++ b/src/scm/webid-oidc/errors.scm @@ -544,11 +544,11 @@ (make-exception-type '&cannot-encode-access-token &external-error - '(value cause))) + '(access-token key cause))) -(define-public (raise-cannot-encode-access-token value cause) +(define-public (raise-cannot-encode-access-token access-token key cause) (raise-exception - ((record-constructor &cannot-encode-access-token) value cause))) + ((record-constructor &cannot-encode-access-token) access-token key cause))) (define-public &cannot-decode-dpop-proof (make-exception-type @@ -1168,8 +1168,8 @@ (format #f (G_ "I cannot decode ~s as an access token (because ~a)") (get 'value) (recurse (get 'cause)))) ((&cannot-encode-access-token) - (format #f (G_ "I cannot encode ~s as an access token (because ~a)") - (get 'value) (recurse (get 'cause)))) + (format #f (G_ "I cannot encode ~s as an access token with key ~s (because ~a)") + (get 'access-token) (get 'key) (recurse (get 'cause)))) ((&cannot-decode-dpop-proof) (format #f (G_ "I cannot decode ~s as a DPoP proof (because ~a)") (get 'value) (recurse (get 'cause)))) |