diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-30 19:51:38 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 22:57:58 +0200 |
commit | 9e2873b126bff9e0d13d2953729def4b0b3cd73e (patch) | |
tree | 081f72cb31579300fe4b5228abea8e67ec826897 /src/scm/webid-oidc/authorization-endpoint.scm | |
parent | 4a144d76950ac002996c3941c1eb4a5a6de6a661 (diff) |
Client manifest: use GOOPS
Diffstat (limited to 'src/scm/webid-oidc/authorization-endpoint.scm')
-rw-r--r-- | src/scm/webid-oidc/authorization-endpoint.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-endpoint.scm b/src/scm/webid-oidc/authorization-endpoint.scm index e859d47..cbf91cf 100644 --- a/src/scm/webid-oidc/authorization-endpoint.scm +++ b/src/scm/webid-oidc/authorization-endpoint.scm @@ -30,7 +30,9 @@ #:use-module (ice-9 receive) #:use-module (ice-9 optargs) #:use-module (ice-9 match) + #:use-module (oop goops) #:declarative? #t + #:duplicates (merge-generics) #:export ( @@ -107,8 +109,9 @@ jwk #:webid subject #:client-id client-id)) - (mf (get-client-manifest client-id))) - (client-manifest-check-redirect-uri mf redirect-uri) + (mf (make <client-manifest> + #:client-id client-id))) + (check-redirect-uri mf redirect-uri) (let ((query (if state (format #f "code=~a&state=~a" |