guix-commits
[Top][All Lists]
Advanced

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

01/02: installer: Fix compute calls.


From: guix-commits
Subject: 01/02: installer: Fix compute calls.
Date: Wed, 5 Dec 2018 03:51:41 -0500 (EST)

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

commit 0055b63df0ad32869e3f05fa92a882a00ff2e574
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



reply via email to

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