mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Fix compute calls.

Browse source 
* gnu/installer/newt/keymap.scm (run-keymap-page): Add missing argument to
compute procedure.
* gnu/installer/newt/network.scm (run-network-page): Ditto.
This commit is contained in:
Mathieu Othacehe 2018-12-05 17:48:36 +09:00 committed by Ludovic Courtès
parent 35e99a23b5
commit 54754efc91
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/installer/newt/keymap.scm
View file

@ -81,7 +81,7 @@ (define keymap-steps
(installer-step
(id 'variant)
(compute
(lambda (result)
(lambda (result _)
(let ((variants (x11-keymap-layout-variants
(result-step result 'layout))))
(run-variant-page variants

4
gnu/installer/newt/network.scm
View file

@ -131,7 +131,7 @@ (define network-steps
(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 @@ (define network-steps
(installer-step
(id 'connect-service)
(compute
(lambda (result)
(lambda (result _)
(let* ((technology (result-step result 'select-technology))
(type (technology-type technology)))
(cond