diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-23 12:21:03 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-01 12:32:20 +0200 |
commit | 98de254d3c77feadad464f77f51f9cad5993a9f8 (patch) | |
tree | 95d959724e449588e1707075263b9d25719f10d2 /src/scm/webid-oidc/dpop-proof.scm | |
parent | ca67854900dbf0f7200e75c73f32900a8fe0b63e (diff) |
Define an XML-loadable meta-class
Diffstat (limited to 'src/scm/webid-oidc/dpop-proof.scm')
-rw-r--r-- | src/scm/webid-oidc/dpop-proof.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/dpop-proof.scm b/src/scm/webid-oidc/dpop-proof.scm index c492436..f8d97c3 100644 --- a/src/scm/webid-oidc/dpop-proof.scm +++ b/src/scm/webid-oidc/dpop-proof.scm @@ -19,6 +19,7 @@ #:use-module (webid-oidc errors) #:use-module (webid-oidc jwk) #:use-module (webid-oidc jti) + #:use-module (webid-oidc serializable) #:use-module ((webid-oidc stubs) #:prefix stubs:) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (webid-oidc web-i18n) @@ -132,8 +133,9 @@ (typ #:init-keyword #:typ #:accessor typ) (jwk #:init-keyword #:jwk #:accessor jwk) (htm #:init-keyword #:htm #:accessor htm) - (htu #:init-keyword #:htu #:accessor htu) - (ath #:init-keyword #:ath #:accessor ath)) + (htu #:init-keyword #:htu #:accessor htu #:->sxml uri->string) + (ath #:init-keyword #:ath #:accessor ath) + #:module-name '(webid-oidc dpop-proof)) (define-method (default-validity (proof <dpop-proof>)) (p:dpop-proof-validity)) |