diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 14:51:28 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 18:08:56 +0200 |
commit | bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 (patch) | |
tree | 00f590033af904a6a493e41bdebe9b3ddd73043b /src/scm/webid-oidc/server/resource/path.scm | |
parent | d8c2ca930673da858d63f2dea9526c259a2dd936 (diff) |
Use guile parameters
With parameters, the API does not need to care about the directory
where to load files and how to get the time.
Diffstat (limited to 'src/scm/webid-oidc/server/resource/path.scm')
-rw-r--r-- | src/scm/webid-oidc/server/resource/path.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/scm/webid-oidc/server/resource/path.scm b/src/scm/webid-oidc/server/resource/path.scm index f1594bc..55c4274 100644 --- a/src/scm/webid-oidc/server/resource/path.scm +++ b/src/scm/webid-oidc/server/resource/path.scm @@ -19,6 +19,7 @@ #: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 (rnrs bytevectors) #:use-module (ice-9 exceptions) @@ -47,17 +48,14 @@ )) -(define (default-dir) - (string-append (refresh:default-dir) "/server")) - (define (hash-path/lock path) (let ((h (stubs:hash 'SHA-256 path)) - (dir (default-dir))) + (dir (p:data-home))) (let ((first-char (substring h 0 1)) (rest (substring h 1))) (values - (format #f "~a/path/~a/~a" dir first-char rest) - (format #f "~a/path/~a/.lock" dir first-char))))) + (format #f "~a/server/path/~a/~a" dir first-char rest) + (format #f "~a/server/path/~a/.lock" dir first-char))))) (define (hash-path path) (receive (h lock) (hash-path/lock path) |