diff options
Diffstat (limited to 'src/scm')
-rw-r--r-- | src/scm/webid-oidc/authorization-endpoint.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/scm/webid-oidc/authorization-endpoint.scm b/src/scm/webid-oidc/authorization-endpoint.scm index d5591b7..4786a7a 100644 --- a/src/scm/webid-oidc/authorization-endpoint.scm +++ b/src/scm/webid-oidc/authorization-endpoint.scm @@ -71,9 +71,11 @@ (password (assoc-ref form-args "password")) (state (assoc-ref get-args "state"))) (when client-id - (set! client-id (car client-id))) + (set! client-id + (string->uri (car client-id)))) (when redirect-uri - (set! redirect-uri (string->uri (car redirect-uri)))) + (set! redirect-uri + (string->uri (car redirect-uri)))) (when password (set! password (car password))) (when state @@ -96,7 +98,7 @@ (exp-sec (+ current-sec validity)) (exp (time-utc->date (make-time time-utc 0 exp-sec))) (code (issue-authorization-code alg jwk exp subject client-id))) - (let ((mf (get-client-manifest (string->uri client-id) + (let ((mf (get-client-manifest client-id #:http-get http-get))) (client-manifest-check-redirect-uri mf redirect-uri) (let ((query @@ -113,9 +115,7 @@ #:port (uri-port redirect-uri) #:path (uri-path redirect-uri) #:query query))) - (redirection locale - (string->uri client-id) - uri)))))) + (redirection locale client-id uri)))))) #:unwind? #t)) (else (authorization-page locale |