From 26602f4063a6e0c626e8deb3423166bcd0abeb90 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 14 Jun 2023 23:48:01 +0200
Subject: services: static-netwoking: Wait for devices to show up.

Fixes <https://issues.guix.gnu.org/63516>.

* gnu/services/base.scm (network-set-up/linux): Add call to
'wait-for-link'.
---
 gnu/services/base.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gnu/services')

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index c5b06b57e8..bbc2ac2c79 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -2799,6 +2799,12 @@ to CONFIG."
 
                        #$@(map (lambda (address)
                                  #~(begin
+                                     ;; Before going any further, wait for the
+                                     ;; device to show up.
+                                     (wait-for-link
+                                      #$(network-address-device address)
+                                      #:blocking? #f)
+
                                      (addr-add #$(network-address-device address)
                                                #$(network-address-value address)
                                                #:ipv6?
-- 
cgit 1.4.1