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..ed6f321278 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