me
/
guix
Archived
1
0
Fork 0
Code

gnu: tzdata: Fix dangling symbolic link. 

* gnu/packages/base.scm (tzdata)[arguments]: Replace dangling symbolic link
with the correct path.
master
John Darrington 2016-10-06 20:03:09 +02:00
parent 1d8de185b8
commit 12b85b3787
No known key found for this signature in database
GPG Key ID: 8A67719C2DE827B3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/packages/base.scm
View File

@ -960,11 +960,11 @@ command.")
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Move data in the right place. ;; Move data in the right place.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(copy-recursively (string-append out "/share/zoneinfo-posix") (symlink (string-append out "/share/zoneinfo")
(string-append out "/share/zoneinfo/posix")) (string-append out "/share/zoneinfo/posix"))
(delete-file-recursively (string-append out "/share/zoneinfo-posix"))
(copy-recursively (string-append out "/share/zoneinfo-leaps") (copy-recursively (string-append out "/share/zoneinfo-leaps")
(string-append out "/share/zoneinfo/right")) (string-append out "/share/zoneinfo/right"))
(delete-file-recursively (string-append out "/share/zoneinfo-posix"))
(delete-file-recursively (string-append out "/share/zoneinfo-leaps")))) (delete-file-recursively (string-append out "/share/zoneinfo-leaps"))))
(alist-delete 'configure %standard-phases))))) (alist-delete 'configure %standard-phases)))))
(inputs `(("tzcode" ,(origin (inputs `(("tzcode" ,(origin