diff options
Diffstat (limited to 'src/scm/webid-oidc/authorization-code.scm')
| -rw-r--r-- | src/scm/webid-oidc/authorization-code.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-code.scm b/src/scm/webid-oidc/authorization-code.scm index 13b7ac4..7abf68b 100644 --- a/src/scm/webid-oidc/authorization-code.scm +++ b/src/scm/webid-oidc/authorization-code.scm @@ -20,6 +20,7 @@ #:use-module (webid-oidc jws) #:use-module (webid-oidc jwk) #:use-module (webid-oidc jti) + #:use-module (webid-oidc serializable) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) #:use-module (srfi srfi-19) @@ -55,8 +56,9 @@ invalid-authorization-code?) (define-class <authorization-code> (<single-use-token>) - (webid #:init-keyword #:webid #:accessor webid) - (client-id #:init-keyword #:client-id #:accessor client-id)) + (webid #:init-keyword #:webid #:accessor webid #:->sxml uri->string) + (client-id #:init-keyword #:client-id #:accessor client-id #:->sxml uri->string) + #:module-name '(webid-oidc authorization-code)) (define-method (initialize (token <authorization-code>) initargs) (with-exception-handler |