summaryrefslogtreecommitdiff
path: root/src/scm/webid-oidc/parameters.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-09-21 19:49:24 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-09-21 22:34:45 +0200
commit0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (patch)
treebcac166559940b2785e5925aedd2ce39e751d9fa /src/scm/webid-oidc/parameters.scm
parent3be4b418a4ec1e94d28401810ff8629ddc86adf9 (diff)
OIDC configuration: use GOOPS and document it
Diffstat (limited to 'src/scm/webid-oidc/parameters.scm')
-rw-r--r--src/scm/webid-oidc/parameters.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/parameters.scm b/src/scm/webid-oidc/parameters.scm
index 603a2cd..7d10798 100644
--- a/src/scm/webid-oidc/parameters.scm
+++ b/src/scm/webid-oidc/parameters.scm
@@ -16,8 +16,8 @@
(define-module (webid-oidc parameters)
#:use-module (srfi srfi-19)
- #:use-module (webid-oidc jti)
- #:export (data-home cache-home current-date)
+ #:use-module (web client)
+ #:export (data-home cache-home current-date anonymous-http-request)
#:declarative? #t)
(define data-home
@@ -49,3 +49,6 @@
(when (time? date)
(set! date (time-utc->date date)))
date)))))
+
+(define anonymous-http-request
+ (make-parameter http-request))