1 files changed, 17 insertions, 18 deletions
diff --git a/src/scm/webid-oidc/server/read.scm b/src/scm/webid-oidc/server/read.scm
index cc74898..0cd49fd 100644
--- a/src/scm/webid-oidc/server/read.scm
+++ b/src/scm/webid-oidc/server/read.scm
@@ -26,8 +26,8 @@
   #:use-module ((webid-oidc stubs) #:prefix stubs:)
   #:use-module (webid-oidc rdf-index)
   #:use-module ((webid-oidc refresh-token) #:prefix refresh:)
+  #:use-module ((webid-oidc parameters) #:prefix p:)
   #:use-module (web uri)
-  #:use-module (web client)
   #:use-module (web response)
   #:use-module (rdf rdf)
   #:use-module (turtle tordf)
@@ -63,14 +63,12 @@
   (base-path auxiliary-resource-absent-base-path)
   (path-type auxiliary-resource-absent-path-type))
 
-(define* (read server-name owner user path
-               #:key
-               (http-get http-get))
+(define* (read server-name owner user path)
   (declare-link-header!)
   (with-session
    (lambda (load-content-type load-contained load-static-content
                               do-create do-delete)
-     (check-acl-can-read server-name path owner user #:http-get http-get)
+     (check-acl-can-read server-name path owner user)
      (receive (base-path path-type)
          (base-path path)
        (let ((container? (container-path? path))
@@ -183,19 +181,20 @@
                 ;; Content
                 (if container?
                     (let ((static-graph
-                           (fetch
-                            (build-uri
-                             'https
-                             #:userinfo (uri-userinfo server-name)
-                             #:host (uri-host server-name)
-                             #:port (uri-port server-name)
-                             #:path path)
-                            #:http-get
-                            (lambda (uri . args)
-                              (values
-                               (build-response
-                                #:headers `((content-type ,(load-content-type relevant-etag))))
-                               (load-static-content relevant-etag))))))
+                           (parameterize
+                               ((p:anonymous-http-request
+                                 (lambda (uri . args)
+                                   (values
+                                    (build-response
+                                     #:headers `((content-type ,(load-content-type relevant-etag))))
+                                    (load-static-content relevant-etag)))))
+                             (fetch
+                              (build-uri
+                               'https
+                               #:userinfo (uri-userinfo server-name)
+                               #:host (uri-host server-name)
+                               #:port (uri-port server-name)
+                               #:path path)))))
                       (let ((final-graph
                              (reverse
                               (append