installer: Fix ethernet connection.
* gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the service passed as parameter.
This commit is contained in:
parent
6aa625c2f8
commit
fb1675cbca
|
@ -54,7 +54,8 @@ connection is pending."
|
||||||
(let* ((service-name (service-name service))
|
(let* ((service-name (service-name service))
|
||||||
(form (draw-connecting-page service-name)))
|
(form (draw-connecting-page service-name)))
|
||||||
(connman-connect service)
|
(connman-connect service)
|
||||||
(destroy-form-and-pop form)))
|
(destroy-form-and-pop form)
|
||||||
|
service))
|
||||||
|
|
||||||
(define (run-ethernet-page)
|
(define (run-ethernet-page)
|
||||||
(let ((services (ethernet-services)))
|
(let ((services (ethernet-services)))
|
||||||
|
|
Loading…
Reference in New Issue