[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
125/197: installer: Do not assume the root file system is of type "ext4"
From: |
Danny Milosavljevic |
Subject: |
125/197: installer: Do not assume the root file system is of type "ext4". |
Date: |
Mon, 3 Jul 2017 20:37:12 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 26191a2684a87f73e78f23cb27da228313899159
Author: John Darrington <address@hidden>
Date: Thu Jan 19 21:49:27 2017 +0100
installer: Do not assume the root file system is of type "ext4".
* gnu/system/installer/install.scm (page-key-handler): Select the
appropriate
filesystem type to mount.
---
gnu/system/installer/install.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index b62c938..4753ae4 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -21,6 +21,7 @@
#:use-module (gnu system installer ping)
#:use-module (gnu system installer misc)
#:use-module (gnu system installer utils)
+ #:use-module (gnu system installer filesystems)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
#:use-module (gurses buttons)
@@ -90,7 +91,11 @@
(lambda ()
(and
(mkdir-p target)
- (mount root-device target "ext4" #:update-mtab? #f)
+
+ (mount root-device target
+ (symbol->string
+ (file-system-spec-type (assoc-ref mount-points
root-device)))
+ #:update-mtab? #f)
(zero? (pipe-cmd window-port "herd"
"herd" "start" "cow-store" target))
- 126/197: installer: mount-points page: Enlarge the forms window., (continued)
- 126/197: installer: mount-points page: Enlarge the forms window., Danny Milosavljevic, 2017/07/03
- 96/197: installer: Changed N_ to M_ since N_ is used for another purpose in guix/ui.scm, Danny Milosavljevic, 2017/07/03
- 142/197: gurses: xchar->char: New procedure., Danny Milosavljevic, 2017/07/03
- 85/197: installer: Use "lspci -mm" instead of "lspci -m"., Danny Milosavljevic, 2017/07/03
- 88/197: installer: Use a cleaner method of detecting wireless capability for ethernet interfaces., Danny Milosavljevic, 2017/07/03
- 93/197: installer: Add a dedicated make to format filesystems., Danny Milosavljevic, 2017/07/03
- 100/197: installer: Do not perform tasks more than once., Danny Milosavljevic, 2017/07/03
- 106/197: installer: Properly handle swap partitions when generating the configuration., Danny Milosavljevic, 2017/07/03
- 114/197: installer: Check that swap spaces have not been assigned mount points, Danny Milosavljevic, 2017/07/03
- 112/197: gurses: form: Use match instead of car, cdr etc., Danny Milosavljevic, 2017/07/03
- 125/197: installer: Do not assume the root file system is of type "ext4".,
Danny Milosavljevic <=
- 130/197: installer: Delete unused procedure "justify"., Danny Milosavljevic, 2017/07/03
- 134/197: installer: Tolerate an undefined system role in config generation., Danny Milosavljevic, 2017/07/03
- 137/197: installer: Prepare for new wireless network features., Danny Milosavljevic, 2017/07/03
- 140/197: installer: Fix the key map option., Danny Milosavljevic, 2017/07/03
- 132/197: installer: Add new procedure to check file system specifications., Danny Milosavljevic, 2017/07/03
- 145/197: gurses: Avoid yet another use of car and cdr., Danny Milosavljevic, 2017/07/03
- 129/197: installer: Emphasise that writing filesystems destroys existing data., Danny Milosavljevic, 2017/07/03
- 150/197: gurses: Reimplement pad-complex-string., Danny Milosavljevic, 2017/07/03
- 159/197: installer: Fix i18n in dialogs., Danny Milosavljevic, 2017/07/03
- 154/197: installer: Main page: Redisplay translatable strings upon refresh., Danny Milosavljevic, 2017/07/03