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.
master
Efraim Flashner 2018-01-10 21:06:05 +02:00
parent 7ba2a1af5c
commit db34d4bbed
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 3 additions and 2 deletions

View File

@ -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))