[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/08: installer: Ensure that all mount points are absolute paths.
From: |
John Darrington |
Subject: |
08/08: installer: Ensure that all mount points are absolute paths. |
Date: |
Mon, 2 Jan 2017 09:03:02 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit 41f6d7771356f07c56378029c88c9c63c8d421cc
Author: John Darrington <address@hidden>
Date: Mon Jan 2 09:32:36 2017 +0100
installer: Ensure that all mount points are absolute paths.
* gnu/system/installer/filesystems.scm (filesystem-task-incomplete-reason):
Add
condition that all mount points must be absolute.
---
gnu/system/installer/filesystems.scm | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/filesystems.scm
b/gnu/system/installer/filesystems.scm
index a068125..bde276d 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016 John Darrington <address@hidden>
+;;; Copyright © 2016, 2017 John Darrington <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -47,6 +47,22 @@
(N_ "You must specify a mount point for the root (/)."))
+ (let ((non-absolute-list (fold (lambda (x prev)
+ (if (absolute-file-name? (cdr x))
+ prev
+ (cons (cdr x) prev)))
+ '()
+ mount-points)))
+ (and (not (null? non-absolute-list))
+ (ngettext
+ (format #f
+ (N_ "The mount point ~s is a relative path. All mount
points must be absolute.")
+ (car non-absolute-list))
+ (format #f
+ (N_ "The mount points ~s are relative paths. All mount
points must be absolute.")
+ non-absolute-list)
+ (length non-absolute-list))))
+
(and (< (size-of-partition (find-mount-device (%store-directory)
mount-points))
minimum-store-size)
(format #f
- branch wip-installer updated (d5eb580 -> 41f6d77), John Darrington, 2017/01/02
- 03/08: installer: Do not allow forms to set the cursor visibility., John Darrington, 2017/01/02
- 06/08: installer: Change essid --> wireless., John Darrington, 2017/01/02
- 08/08: installer: Ensure that all mount points are absolute paths.,
John Darrington <=
- 01/08: installer: Add flags to indicate network interface status., John Darrington, 2017/01/02
- 07/08: installer: Make setting up of the network a prerequisite., John Darrington, 2017/01/02
- 04/08: installer: Indicate which wireless access points are encrypted., John Darrington, 2017/01/02
- 02/08: installer: Format configuration to fix width of window., John Darrington, 2017/01/02
- 05/08: installer: Add page with which the wifi password can be entered., John Darrington, 2017/01/02