installer: Fix ethernet connection.

* gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the
service passed as parameter.
This commit is contained in:
Mathieu Othacehe 2018-12-05 14:52:04 +09:00 committed by Ludovic Courtès
parent 6aa625c2f8
commit fb1675cbca
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions

View File

@ -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)))