jmd pushed a commit to branch wip-installer
in repository guix.
commit a409951fe2ec5eb09a4edef90031f8441a11470d
Author: John Darrington <[email protected]>
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))
