From e5e5119855b0269e8e6507b90c7f4d7df5118fc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 3 Jul 2018 11:02:22 +0200
Subject: [PATCH] database: 'reset-timestamps' now correctly handles symlinks.

* guix/store/database.scm (reset-timestamps): Use 'utime' with
AT_SYMLINK_NOFOLLOW for symlinks.
---
 guix/store/database.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/guix/store/database.scm b/guix/store/database.scm
index 05b2ba6c3f..8f35b63e37 100644
--- a/guix/store/database.scm
+++ b/guix/store/database.scm
@@ -209,9 +209,7 @@ it's a directory.  While at it, canonicalize file permissions."
                                 (type type))))))
                    (scandir* parent))))
       ((symlink)
-       ;; FIXME: Implement bindings for 'futime' to reset the timestamps on
-       ;; symlinks.
-       #f)
+       (utime file 0 0 0 0 AT_SYMLINK_NOFOLLOW))
       (else
        (chmod file (if (executable-file? file) #o555 #o444))
        (utime file 0 0 0 0)))))