summary refs log tree commit diff
path: root/gnu/installer/newt
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 14:52:04 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:23 +0100
commitfb1675cbca68a7ada710640294a26cf0f1b22168 (patch)
treedece4c140f27de96432c9c3ab29047751668574f /gnu/installer/newt
parent6aa625c2f82332f8987247958fc18955bd8078f3 (diff)
downloadguix-fb1675cbca68a7ada710640294a26cf0f1b22168.tar.gz
installer: Fix ethernet connection.
* gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the
service passed as parameter.
Diffstat (limited to 'gnu/installer/newt')
-rw-r--r--gnu/installer/newt/ethernet.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/installer/newt/ethernet.scm b/gnu/installer/newt/ethernet.scm
index 2cbbfddacd..2b02653777 100644
--- a/gnu/installer/newt/ethernet.scm
+++ b/gnu/installer/newt/ethernet.scm
@@ -54,7 +54,8 @@ connection is pending."
   (let* ((service-name (service-name service))
          (form (draw-connecting-page service-name)))
     (connman-connect service)
-    (destroy-form-and-pop form)))
+    (destroy-form-and-pop form)
+    service))
 
 (define (run-ethernet-page)
   (let ((services (ethernet-services)))