fixup! Define the access token API

2 files changed, 6 insertions, 5 deletions

diff --git a/src/scm/webid-oidc/access-token.scm b/src/scm/webid-oidc/access-token.scm
index 4954b39..34afcdc 100644
--- a/src/scm/webid-oidc/access-token.scm
+++ b/src/scm/webid-oidc/access-token.scm
@@ -5,6 +5,7 @@
   #:use-module (webid-oidc oidc-configuration)
   #:use-module ((webid-oidc stubs) #:prefix stubs:)
   #:use-module (web uri)
+  #:use-module (web client)
   #:use-module (ice-9 optargs)
   #:use-module (srfi srfi-19))
 
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))))