diff options
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" |