[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
108/197: installer: Do not add file systems which are invalid.
From: |
Danny Milosavljevic |
Subject: |
108/197: installer: Do not add file systems which are invalid. |
Date: |
Mon, 3 Jul 2017 20:37:09 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 208799438ff360353d7e70296159809f1ce2fdeb
Author: John Darrington <address@hidden>
Date: Mon Jan 16 21:51:37 2017 +0100
installer: Do not add file systems which are invalid.
* gnu/system/installer/mount-point.scm (mount-point-page-key-handler): Do
not add invalid filesystems to the list of mount points.
---
gnu/system/installer/mount-point.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/gnu/system/installer/mount-point.scm
b/gnu/system/installer/mount-point.scm
index 3abf675..daebc71 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -54,12 +54,14 @@
(cond
((buttons-key-matches-symbol? nav ch 'continue)
- (set! mount-points
- (assoc-set! mount-points dev
- (make-file-system-spec
- (form-get-value form 'mount-point)
- (form-get-value form 'label)
- (form-get-value form 'fs-type))))
+ (let ((fss
+ (make-file-system-spec
+ (form-get-value form 'mount-point)
+ (form-get-value form 'label)
+ (form-get-value form 'fs-type))))
+ (when fss
+ (set! mount-points
+ (assoc-set! mount-points dev fss))))
(page-leave))
((buttons-key-matches-symbol? nav ch 'cancel)
- 127/197: gurses: Remove box from form popup window., (continued)
- 127/197: gurses: Remove box from form popup window., Danny Milosavljevic, 2017/07/03
- 123/197: installer: Add a popup window for forms which have multiple choice fields., Danny Milosavljevic, 2017/07/03
- 121/197: installer: Note which types of file system are supported., Danny Milosavljevic, 2017/07/03
- 141/197: gurses: Avoid one usage of car and cdr., Danny Milosavljevic, 2017/07/03
- 151/197: installer: Avoid wpa_supplicant's output causing screen damage., Danny Milosavljevic, 2017/07/03
- 99/197: installer: Exit the format page after all partitions are successfully formatted., Danny Milosavljevic, 2017/07/03
- 101/197: installer: Replace one usage of car with match., Danny Milosavljevic, 2017/07/03
- 109/197: installer: Fix bug where the selected item of main page was not indicated., Danny Milosavljevic, 2017/07/03
- 104/197: installer: Support btrfs, Danny Milosavljevic, 2017/07/03
- 111/197: gurses: Change highlighting from bold to inverse., Danny Milosavljevic, 2017/07/03
- 108/197: installer: Do not add file systems which are invalid.,
Danny Milosavljevic <=
- 164/197: gurses: Use match instead of car., Danny Milosavljevic, 2017/07/03
- 170/197: installer: Remove unused procedure., Danny Milosavljevic, 2017/07/03
- 152/197: installer: New file i18n.scm., Danny Milosavljevic, 2017/07/03
- 110/197: installer: Add an explanatory text to the main page., Danny Milosavljevic, 2017/07/03
- 120/197: gurses: Mini refactor., Danny Milosavljevic, 2017/07/03
- 124/197: gurses: Populate dropdown boxes in forms using a menu., Danny Milosavljevic, 2017/07/03
- 131/197: gurses: Use inverse instead of underline for field value area., Danny Milosavljevic, 2017/07/03
- 133/197: installer: Change livery., Danny Milosavljevic, 2017/07/03
- 146/197: gurses: Use match instead of car/cdr in line-split., Danny Milosavljevic, 2017/07/03
- 147/197: gurses: In paragraph-format avoid use of car and cdr., Danny Milosavljevic, 2017/07/03