From fb1675cbca68a7ada710640294a26cf0f1b22168 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 5 Dec 2018 14:52:04 +0900 Subject: installer: Fix ethernet connection. * gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the service passed as parameter. --- gnu/installer/newt/ethernet.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- cgit 1.4.1