01/02: gnu: tzdata: Fix dangling symbolic link.

[John Darrington]

jmd pushed a commit to branch core-updates
in repository guix.

commit 12b85b378777393bda24edb30cd974e4a0591e0f
Author: John Darrington <address@hidden>
Date:   Thu Oct 6 20:03:09 2016 +0200

    gnu: tzdata: Fix dangling symbolic link.
    
    * 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 6057df2..8f12907 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -960,11 +960,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