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/server/create.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/server/create.scm')
| -rw-r--r-- | src/scm/webid-oidc/server/create.scm | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/src/scm/webid-oidc/server/create.scm b/src/scm/webid-oidc/server/create.scm index dc9651e..0558ff3 100644 --- a/src/scm/webid-oidc/server/create.scm +++ b/src/scm/webid-oidc/server/create.scm @@ -27,8 +27,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) @@ -88,13 +88,14 @@ (make-exception (make-unsupported-media-type content-type) (make-exception-with-message final-message)))))) - (let ((graph (fetch - doc-uri - #:http-get - (lambda (uri . args) - (values - (build-response #:headers `((content-type ,content-type))) - content))))) + (let ((graph + (parameterize + ((p:anonymous-http-request + (lambda* (uri . args) + (values + (build-response #:headers `((content-type ,content-type))) + content)))) + (fetch doc-uri)))) (with-index graph (lambda (rdf-match) @@ -117,10 +118,8 @@ (or (equal? next "http://www.w3.org/ns/ldp#BasicContainer") (types-indicate-container? (cdr types)))))) -(define* (create server-name owner user container types slug content-type content - #:key - (http-get http-get)) - (check-acl-can-append server-name container owner user #:http-get http-get) +(define* (create server-name owner user container types slug content-type content) + (check-acl-can-append server-name container owner user) (unless (and slug (not (equal? slug ""))) (set! slug (stubs:random 12))) (when (string-contains slug "/") @@ -171,8 +170,7 @@ (lambda error (create server-name owner user container types (string-append slug "-" (stubs:random 12)) - content-type content - #:http-get http-get)))))))) + content-type content)))))))) (define (create-root server-name owner) (define (fix-angle-aux accu chars) |