[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: grub-hybrid: Don't try to install files that already exist.
From: |
Efraim Flashner |
Subject: |
01/01: gnu: grub-hybrid: Don't try to install files that already exist. |
Date: |
Wed, 10 Jan 2018 14:07:43 -0500 (EST) |
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))