diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-12-05 14:52:04 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:23 +0100 |
| commit | fb1675cbca68a7ada710640294a26cf0f1b22168 (patch) | |
| tree | dece4c140f27de96432c9c3ab29047751668574f | |
| parent | 6aa625c2f82332f8987247958fc18955bd8078f3 (diff) | |
| download | guix-fb1675cbca68a7ada710640294a26cf0f1b22168.tar.gz guix-fb1675cbca68a7ada710640294a26cf0f1b22168.zip | |
installer: Fix ethernet connection.
* gnu/installer/newt/ethernet.scm (connect-ethernet-service): Return the
service passed as parameter.
| -rw-r--r-- | gnu/installer/newt/ethernet.scm | 3 |
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))) |