From 549cf99065e36ab7f2310d30119346ff123665dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 24 Aug 2020 00:13:58 +0200
Subject: Replace (directories) with general (xdg basedir).

---
 module/datetime/instance.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/datetime')

diff --git a/module/datetime/instance.scm b/module/datetime/instance.scm
index db24d8a2..5b5a6604 100644
--- a/module/datetime/instance.scm
+++ b/module/datetime/instance.scm
@@ -3,7 +3,7 @@
   :use-module (util config)
   :use-module (util exceptions)
   :use-module (datetime zic)
-  :use-module (directories)
+  :use-module ((xdg basedir) :prefix xdg-)
   :export (zoneinfo))
 
 (define-config tz-list '()
@@ -21,7 +21,7 @@
                 (self tz-list)))
              ((file-list)
               (provide 'zoneinfo)
-              (let* ((directory (path-append data-directory "/zoneinfo"))
+              (let* ((directory (path-append (xdg-data-home) "/calp/zoneinfo"))
                      (key (cons directory file-list)))
                 (aif (hash-ref cache key)
                      it
-- 
cgit v1.2.3