~ruther/guix-local: gnu: grub-hybrid: Don't try to install files that already exist.

db34d4bbed5b71fefb0abad84e705d624c99337c — Efraim Flashner 8 years ago 7ba2a1a

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.

patch browse .tar.gz .zip

1 files changed, 3 insertions(+), 2 deletions(-)

M gnu/packages/bootloaders.scm

M gnu/packages/bootloaders.scm => gnu/packages/bootloaders.scm +3 -2

@@ 6,7 6,7 @@
 ;;; Copyright © 2016, 2017, 2018 Marius Bakke <mbakke@fastmail.com>
 ;;; Copyright © 2016, 2017 Danny Milosavljevic <dannym@scratchpost.org>
 ;;; Copyright © 2016, 2017 David Craven <david@craven.ch>
-;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; 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))