diff options
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) |