diff options
Diffstat (limited to 'src/scm/webid-oidc/client/accounts.scm')
| -rw-r--r-- | src/scm/webid-oidc/client/accounts.scm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/src/scm/webid-oidc/client/accounts.scm b/src/scm/webid-oidc/client/accounts.scm index 7e14000..31d105d 100644 --- a/src/scm/webid-oidc/client/accounts.scm +++ b/src/scm/webid-oidc/client/accounts.scm @@ -37,14 +37,9 @@ #:use-module ((webid-oidc client client) #:prefix client:) #:use-module (web uri) #:use-module (web response) - #:use-module (web client) #:use-module (rnrs bytevectors) #:use-module (oop goops) #:declarative? #t - #:re-export - ( - (p:anonymous-http-request . anonymous-http-request) - ) #:export ( <account> @@ -132,13 +127,6 @@ (define authorization-state (make-parameter #f)) -(define (http-request->http-get http-request) - (lambda* (uri . all-args) - (apply http-request uri #:method 'GET all-args))) - -(define (http-get-implementation) - (http-request->http-get (p:anonymous-http-request))) - (define-class <account> () (subject #:init-keyword #:subject #:getter subject) (issuer #:init-keyword #:issuer #:getter issuer) @@ -371,8 +359,7 @@ decoding-error)))) (lambda () (set! id-token - (decode <id:id-token> id-token - #:http-request (p:anonymous-http-request))))) + (decode <id:id-token> id-token)))) ;; We are not interested in the ID token ;; signature anymore, because it won’t be ;; transmitted to other parties and we know that |