diff options
Diffstat (limited to 'src/scm/webid-oidc/access-token.scm')
-rw-r--r-- | src/scm/webid-oidc/access-token.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/access-token.scm b/src/scm/webid-oidc/access-token.scm index d40e0da..9bd5ff7 100644 --- a/src/scm/webid-oidc/access-token.scm +++ b/src/scm/webid-oidc/access-token.scm @@ -19,6 +19,7 @@ #:use-module (webid-oidc errors) #:use-module (webid-oidc jwk) #:use-module (webid-oidc web-i18n) + #:use-module (webid-oidc serializable) #:use-module ((webid-oidc stubs) #:prefix stubs:) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) @@ -55,10 +56,11 @@ invalid-access-token?) (define-class <access-token> (<time-bound-token> <oidc-token>) - (webid #:init-keyword #:webid #:accessor webid) + (webid #:init-keyword #:webid #:accessor webid #:->sxml uri->string) (aud #:init-keyword #:aud #:accessor aud) - (client-id #:init-keyword #:client-id #:accessor client-id) - (cnf/jkt #:init-keyword #:cnf/jkt #:accessor cnf/jkt)) + (client-id #:init-keyword #:client-id #:accessor client-id #:->sxml uri->string) + (cnf/jkt #:init-keyword #:cnf/jkt #:accessor cnf/jkt) + #:module-name '(webid-oidc access-token)) (define-method (initialize (token <access-token>) initargs) (with-exception-handler |