aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2018-01-10 21:06:05 +0200
committerEfraim Flashner <efraim@flashner.co.il>2018-01-10 21:06:39 +0200
commitdb34d4bbed5b71fefb0abad84e705d624c99337c (patch)
treef4cf40307ba5f581cc366af151420f2fe6c37683 /gnu
parent7ba2a1af5cc5f3e914fb3eb4b562e4676a659880 (diff)
downloadguix-db34d4bbed5b71fefb0abad84e705d624c99337c.tar
guix-db34d4bbed5b71fefb0abad84e705d624c99337c.tar.gz
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.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/bootloaders.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 1f0cf64696..5884cbd750 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -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))