Use anonymous-http-request from (webid-oidc parameters) everywhere

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