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/simulation.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/simulation.scm')
-rw-r--r-- | src/scm/webid-oidc/simulation.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/scm/webid-oidc/simulation.scm b/src/scm/webid-oidc/simulation.scm index 30f7b43..0accdc4 100644 --- a/src/scm/webid-oidc/simulation.scm +++ b/src/scm/webid-oidc/simulation.scm @@ -153,17 +153,11 @@ (crypt "password" "xxx") (with-path server-uri "/keys") (with-path server-uri "/authorize") - (with-path server-uri "/token") - #:http-get - (lambda* (uri . args) - (apply request simulation uri #:method 'GET args)))) + (with-path server-uri "/token"))) (server (make-resource-server #:server-uri server-uri - #:owner owner - #:http-get - (lambda* (uri . args) - (apply request simulation uri #:method 'GET args))))) + #:owner owner))) (define (handle request body) (let ((path (uri-path (request-uri request)))) (if (member path |