[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
35/67: installer: Fix compute calls.
From: |
guix-commits |
Subject: |
35/67: installer: Fix compute calls. |
Date: |
Wed, 16 Jan 2019 19:00:41 -0500 (EST) |
civodul pushed a commit to branch wip-newt-installer
in repository guix.
commit 3f75a5e5a29466e2e28c4821f70948c8e7f67ab2
Author: Mathieu Othacehe <address@hidden>
Date: Wed Dec 5 17:48:36 2018 +0900
installer: Fix compute calls.
* gnu/installer/newt/keymap.scm (run-keymap-page): Add missing argument to
compute procedure.
* gnu/installer/newt/network.scm (run-network-page): Ditto.
---
gnu/installer/newt/keymap.scm | 2 +-
gnu/installer/newt/network.scm | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/installer/newt/keymap.scm b/gnu/installer/newt/keymap.scm
index 0c38a79..4bdae51 100644
--- a/gnu/installer/newt/keymap.scm
+++ b/gnu/installer/newt/keymap.scm
@@ -81,7 +81,7 @@ names of the selected keyboard layout and variant."
(installer-step
(id 'variant)
(compute
- (lambda (result)
+ (lambda (result _)
(let ((variants (x11-keymap-layout-variants
(result-step result 'layout))))
(run-variant-page variants
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm
index 45989ac..4912959 100644
--- a/gnu/installer/newt/network.scm
+++ b/gnu/installer/newt/network.scm
@@ -131,7 +131,7 @@ Internet."
(installer-step
(id 'power-technology)
(compute
- (lambda (result)
+ (lambda (result _)
(let ((technology (result-step result 'select-technology)))
(connman-enable-technology technology)
(wait-technology-powered technology)))))
@@ -140,7 +140,7 @@ Internet."
(installer-step
(id 'connect-service)
(compute
- (lambda (result)
+ (lambda (result _)
(let* ((technology (result-step result 'select-technology))
(type (technology-type technology)))
(cond
- 21/67: installer: Add new utils., (continued)
- 21/67: installer: Add new utils., guix-commits, 2019/01/16
- 20/67: installer: Remove "selection" from all titles., guix-commits, 2019/01/16
- 28/67: installer: Fix ethernet connection., guix-commits, 2019/01/16
- 10/67: gnu: installer: Launch the installer as kmscon login-program., guix-commits, 2019/01/16
- 19/67: file-systems: Export read-partition-label and read-partition-uuid., guix-commits, 2019/01/16
- 14/67: tests: Rename %test-encrypted-os to %test-encrypted-root-os., guix-commits, 2019/01/16
- 18/67: gnu: Add guile-parted., guix-commits, 2019/01/16
- 33/67: installer: Reorder local.mk., guix-commits, 2019/01/16
- 05/67: installer: newt: Use scheme-modules* instead of scheme-modules., guix-commits, 2019/01/16
- 17/67: gnu: guile-newt: Update to revision 4., guix-commits, 2019/01/16
- 35/67: installer: Fix compute calls.,
guix-commits <=
- 36/67: installer: Reorder partitionment step., guix-commits, 2019/01/16
- 24/67: installer: Add services page., guix-commits, 2019/01/16
- 37/67: installer: locale: Make clear that the point is to select a glibc locale., guix-commits, 2019/01/16
- 26/67: installer: Add new pages., guix-commits, 2019/01/16
- 07/67: configure: Disable installer build by default., guix-commits, 2019/01/16
- 30/67: installer: Add user module., guix-commits, 2019/01/16
- 50/67: installer: partition: Fix typo., guix-commits, 2019/01/16
- 49/67: installer: partition: Fix swaping and use syscalls., guix-commits, 2019/01/16
- 53/67: file-systems: Add read-luks-partition-uuid., guix-commits, 2019/01/16
- 46/67: installer: Display an eventual backtrace in a page., guix-commits, 2019/01/16