21/26: installer: Do not assume the root file system is of type "ext4".

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit a409951fe2ec5eb09a4edef90031f8441a11470d
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))