[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Ignore default button for "disks" page.
From: |
Danny Milosavljevic |
Subject: |
01/01: installer: Ignore default button for "disks" page. |
Date: |
Fri, 7 Jul 2017 16:23:54 -0400 (EDT) |
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)