mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-21 01:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/packages/bootloaders.scm (grub-hybrid)[arguments]: Check if a file
already exists in the destination directory before installing it.
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/packages/bootloaders.scm
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 @@ (define-public grub-hybrid
"/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))