summaryrefslogtreecommitdiff
path: root/src/scm/webid-oidc/cache.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-04-18 19:27:50 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-05-11 02:24:27 +0200
commit61af76ce784e08a0e9479c4370aa1e5a4c1b7e91 (patch)
tree1065de0f05989b847a532da6799affcb8db7350e /src/scm/webid-oidc/cache.scm
parent1fbc55dd28556b9a5ea723384cd4c4e230266d02 (diff)
Negociate a token (client)
Diffstat (limited to 'src/scm/webid-oidc/cache.scm')
-rw-r--r--src/scm/webid-oidc/cache.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/cache.scm b/src/scm/webid-oidc/cache.scm
index 8e28c17..a426e76 100644
--- a/src/scm/webid-oidc/cache.scm
+++ b/src/scm/webid-oidc/cache.scm
@@ -38,7 +38,7 @@
(define (default-cache-dir)
(let ((xdg-cache-home
(or (getenv "XDG_CACHE_HOME")
- (format #f "~a/.cache"))))
+ (format #f "~a/.cache" (getenv "HOME")))))
(format #f "~a/webid-oidc" xdg-cache-home)))
(define (event? percents)