[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
52/197: installer: Prevent the user specifying the same mount point twic
From: |
Danny Milosavljevic |
Subject: |
52/197: installer: Prevent the user specifying the same mount point twice. |
Date: |
Mon, 3 Jul 2017 20:36:59 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 219c0f645588d84632debaab40efe5184202c02b
Author: John Darrington <address@hidden>
Date: Fri Dec 30 15:01:31 2016 +0100
installer: Prevent the user specifying the same mount point twice.
* gnu/system/installer/filesystems.scm (filesystem-task-incomplete): Add the
condition that no mount point may appear more than once.
---
gnu/system/installer/filesystems.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/gnu/system/installer/filesystems.scm
b/gnu/system/installer/filesystems.scm
index 0f67342..4297ef3 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -51,6 +51,17 @@
(and (not (find-mount-device "/" mount-points))
(N_ "You must specify a mount point for the root (/)."))
+ (let loop ((ll mount-points)
+ (ac '()))
+ (match ll
+ ('() #f)
+ (((_ . directory) . rest)
+ (if (member directory ac)
+ (format #f
+ (N_ "You have specified the mount point ~a more than
once.")
+ directory)
+ (loop rest (cons directory ac))))))
+
(let ((partitions-without-filesystems
(fold (lambda (x prev)
(if (not (string-prefix? "ext"
- 09/197: installer: Use a record instead of a list to contain tasks., (continued)
- 09/197: installer: Use a record instead of a list to contain tasks., Danny Milosavljevic, 2017/07/03
- 23/197: installer: Use a cleaner way of generating the lspci information., Danny Milosavljevic, 2017/07/03
- 35/197: installer: New predicate valid-hostname?, Danny Milosavljevic, 2017/07/03
- 36/197: installer: Ensure that all mount-points have a file system., Danny Milosavljevic, 2017/07/03
- 39/197: installer: Replace an instance of cdr with match., Danny Milosavljevic, 2017/07/03
- 46/197: installer: Replace "%temporary-configuration-file-port" with "config-file"., Danny Milosavljevic, 2017/07/03
- 30/197: installer: Write the configuration to a temporary file., Danny Milosavljevic, 2017/07/03
- 24/197: installer: Add a new menu to configure wireless interfaces., Danny Milosavljevic, 2017/07/03
- 49/197: installer: Replace spawned mount command with the mount syscall., Danny Milosavljevic, 2017/07/03
- 44/197: installer: Use consistent window heights., Danny Milosavljevic, 2017/07/03
- 52/197: installer: Prevent the user specifying the same mount point twice.,
Danny Milosavljevic <=
- 51/197: installer: Allow users to remove mount points during configuration., Danny Milosavljevic, 2017/07/03
- 14/197: installer: Add procedures to replace car/cdr since these are frounded upon by Guile gurus., Danny Milosavljevic, 2017/07/03
- 55/197: installer: Use global variable instead of string literal for "/gnu"., Danny Milosavljevic, 2017/07/03
- 54/197: installer: Change the order of the filesystem task conditions., Danny Milosavljevic, 2017/07/03
- 60/197: installer: Do not allow forms to set the cursor visibility., Danny Milosavljevic, 2017/07/03
- 56/197: installer: Do not use /tmp for holding the configuration., Danny Milosavljevic, 2017/07/03
- 66/197: installer: Add option to final page to reboot the system., Danny Milosavljevic, 2017/07/03
- 71/197: installer: Add confidence indicator., Danny Milosavljevic, 2017/07/03
- 67/197: installer: Add predicate for the network task., Danny Milosavljevic, 2017/07/03
- 74/197: installer: Remove explicit calls to curs-set from pages., Danny Milosavljevic, 2017/07/03