# tzdata.patch -rw-r--r-- 1.6 KiB View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index c3b33e3751..32b6a8996f 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -1309,6 +1309,15 @@ (define-public tzdata
                                        (string-append out "/share/zoneinfo/right"))
                      (delete-file-recursively
                       (string-append out "/share/zoneinfo-leaps")))))
+               ;; XXX: Merge this into post-install when tzdata-for-tests can
+               ;; next be modified. It's separate so that we can easily remove
+               ;; it with modify-phases in tzdata-for-tests, so that we don't
+               ;; rebuild the world.
+               (add-after 'post-install 'install-leap-seconds-list
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let ((out (assoc-ref outputs "out")))
+                     (install-file "leap-seconds.list"
+                                   (string-append out "/share/zoneinfo")))))
                (delete 'configure))))
     (inputs (list (origin
                     (method url-fetch)
@@ -1335,7 +1344,15 @@ (define-public tzdata
 ;;;
 ;;; Please make this a hidden-package if it is different from the primary tzdata
 ;;; package.
-(define-public tzdata-for-tests tzdata)
+(define-public tzdata-for-tests
+  (hidden-package
+    (package
+      (inherit tzdata)
+      (arguments
+        (substitute-keyword-arguments (package-arguments tzdata)
+          ((#:phases phases)
+           `(modify-phases ,phases
+              (delete 'install-leap-seconds-list))))))))
 
 (define-public libiconv
   (package