01/01: gnu: grub-hybrid: Don't try to install files that already exist.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit db34d4bbed5b71fefb0abad84e705d624c99337c
Author: Efraim Flashner <address@hidden>
Date:   Wed Jan 10 21:06:05 2018 +0200

    gnu: grub-hybrid: Don't try to install files that already exist.
    
    * gnu/packages/bootloaders.scm (grub-hybrid)[arguments]: Check if a file
    already exists in the destination directory before installing it.
---
 gnu/packages/bootloaders.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 1f0cf64..5884cbd 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -6,7 +6,7 @@
 ;;; Copyright © 2016, 2017, 2018 Marius Bakke <address@hidden>
 ;;; Copyright © 2016, 2017 Danny Milosavljevic <address@hidden>
 ;;; Copyright © 2016, 2017 David Craven <address@hidden>
-;;; Copyright © 2017 Efraim Flashner <address@hidden>
+;;; Copyright © 2017, 2018 Efraim Flashner <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -221,7 +221,8 @@ menu to select one of the installed operating systems.")
                                                 "/lib/grub")))
                  (for-each
                   (lambda (basename)
-                    (if (not (string-prefix? "." basename))
+                    (if (not (or (string-prefix? "." basename)
+                                 (file-exists? (string-append output-dir "/" 
basename))))
                         (symlink (string-append input-dir "/" basename)
                                  (string-append output-dir "/" basename))))
                   (scandir input-dir))