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/parameters.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/parameters.scm')
| -rw-r--r-- | src/scm/webid-oidc/parameters.scm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/parameters.scm b/src/scm/webid-oidc/parameters.scm index 7d10798..df879ef 100644 --- a/src/scm/webid-oidc/parameters.scm +++ b/src/scm/webid-oidc/parameters.scm @@ -17,7 +17,16 @@ (define-module (webid-oidc parameters) #:use-module (srfi srfi-19) #:use-module (web client) - #:export (data-home cache-home current-date anonymous-http-request) + #:export + ( + data-home + cache-home + current-date + authorization-code-default-validity + oidc-token-default-validity + dpop-proof-validity + anonymous-http-request + ) #:declarative? #t) (define data-home @@ -52,3 +61,12 @@ (define anonymous-http-request (make-parameter http-request)) + +(define authorization-code-default-validity + (make-parameter 120)) + +(define oidc-token-default-validity + (make-parameter 3600)) + +(define dpop-proof-validity + (make-parameter 30)) |