guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

10/21: installer: Allow file system specifications to be removed.


From: John Darrington
Subject: 10/21: installer: Allow file system specifications to be removed.
Date: Sun, 29 Jan 2017 07:35:02 +0000 (UTC)

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

commit b7b726cdae390517bef09bf5a55a486441b306f9
Author: John Darrington <address@hidden>
Date:   Tue Jan 24 17:01:41 2017 +0100

    installer:  Allow file system specifications to be removed.
    
    * gnu/system/installer/mount-point.scm (mount-point-page-key-handler): Call
    assoc-remove! on entries which are #f
---
 gnu/system/installer/mount-point.scm |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/system/installer/mount-point.scm 
b/gnu/system/installer/mount-point.scm
index 794ec9f..b4b83aa 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -60,10 +60,11 @@
               (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))
+        (set! mount-points
+              (if fss
+                  (assoc-set! mount-points dev fss)
+                  (assoc-remove! mount-points dev)))
+        (page-leave)))
 
      ((buttons-key-matches-symbol? nav ch 'cancel)
       ;; Close the menu and return



reply via email to

[Prev in Thread] Current Thread [Next in Thread]