01/01: installer: Ignore default button for "disks" page.

[Danny Milosavljevic]

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

commit eafcc2edd51eebae896b059b4720c7a57943804b
Author: Danny Milosavljevic <address@hidden>
Date:   Fri Jul 7 22:22:55 2017 +0200

    installer: Ignore default button for "disks" page.
    
    * gnu/system/installer/disks.scm (disk-page-activate-item): Ignore default 
button.
    Handle "Continue" button.
---
 gnu/system/installer/disks.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/disks.scm b/gnu/system/installer/disks.scm
index 3cba612..c1cd20f 100644
--- a/gnu/system/installer/disks.scm
+++ b/gnu/system/installer/disks.scm
@@ -65,9 +65,10 @@
     (system* "cfdisk" (disk-name i))
     (system* "partprobe")
     'handled)
-   (else ; "Continue" button activated
+   ('continue
      (page-leave)
-     'handled)))
+     'handled)
+   (_ 'ignored)))
 
 (define (truncate-string ss w)
  (if (> (string-length ss) w)