16/16: services: static-netwoking: Wait for devices to show up.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 26602f4063a6e0c626e8deb3423166bcd0abeb90
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Jun 14 23:48:01 2023 +0200

    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(+)

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?