guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 1/2] gnu: tzdata: Fix dangling symbolic link.


From: John Darrington
Subject: [PATCH 1/2] gnu: tzdata: Fix dangling symbolic link.
Date: Thu, 6 Oct 2016 20:18:06 +0200

* gnu/packages/base.scm (tzdata)[arguments]: Replace dangling symbolic link
with the correct path.
---
 gnu/packages/base.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index a476837..52d8de3 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -946,11 +946,11 @@ command.")
          (lambda* (#:key outputs #:allow-other-keys)
            ;; Move data in the right place.
            (let ((out (assoc-ref outputs "out")))
-             (copy-recursively (string-append out "/share/zoneinfo-posix")
-                               (string-append out "/share/zoneinfo/posix"))
+             (symlink (string-append out "/share/zoneinfo")
+                      (string-append out "/share/zoneinfo/posix"))
+             (delete-file-recursively (string-append out 
"/share/zoneinfo-posix"))
              (copy-recursively (string-append out "/share/zoneinfo-leaps")
                                (string-append out "/share/zoneinfo/right"))
-             (delete-file-recursively (string-append out 
"/share/zoneinfo-posix"))
              (delete-file-recursively (string-append out 
"/share/zoneinfo-leaps"))))
          (alist-delete 'configure %standard-phases)))))
     (inputs `(("tzcode" ,(origin
-- 
2.1.4




reply via email to

[Prev in Thread] Current Thread [Next in Thread]