diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 13:11:21 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 18:08:47 +0200 |
| commit | 555e59deba33284067298ce6130c379c75e3d2a3 (patch) | |
| tree | c15c823913e917bc474f1cf163caf65a117ee9c3 /src/scm/webid-oidc/authorization-endpoint.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/authorization-endpoint.scm')
| -rw-r--r-- | src/scm/webid-oidc/authorization-endpoint.scm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/scm/webid-oidc/authorization-endpoint.scm b/src/scm/webid-oidc/authorization-endpoint.scm index 4f171a2..e859d47 100644 --- a/src/scm/webid-oidc/authorization-endpoint.scm +++ b/src/scm/webid-oidc/authorization-endpoint.scm @@ -22,7 +22,6 @@ #:use-module (webid-oidc client-manifest) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) - #:use-module (web client) #:use-module (web request) #:use-module (web response) #:use-module (rnrs bytevectors) @@ -43,9 +42,7 @@ (let ((c (crypt password encrypted-password))) (string=? c encrypted-password))) -(define* (make-authorization-endpoint subject encrypted-password jwk validity - #:key - (http-get http-get)) +(define (make-authorization-endpoint subject encrypted-password jwk) (define (parse-arg x decode-plus-to-space?) (map (lambda (x) (uri-decode x @@ -110,8 +107,7 @@ jwk #:webid subject #:client-id client-id)) - (mf (get-client-manifest client-id - #:http-get http-get))) + (mf (get-client-manifest client-id))) (client-manifest-check-redirect-uri mf redirect-uri) (let ((query (if state @@ -135,4 +131,3 @@ (verify-password encrypted-password password))) client-id uri))))))) - |