installer: Fix ethernet connection.

* gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the service passed as parameter.
4 years ago · fb1675cbca
1 changed files with 2 additions and 1 deletions
--- 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)))