02/02: services: dhcp-client: Ignore interfaces that are not ARP capable.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 6c2180f5d02687f6aa1a5931b29827469bdc0ba0
Author: Marius Bakke <address@hidden>
Date:   Thu May 9 19:53:05 2019 +0200

    services: dhcp-client: Ignore interfaces that are not ARP capable.
    
    * gnu/services/networking.scm (dhcp-client-service-type): Filter interfaces
    that do not support the ARP protocol.
---
 gnu/services/networking.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 03b2c6e..082a85f 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -190,7 +190,9 @@ fe80::1%lo0 apps.facebook.com\n")
                  ;; interfaces are typically down at this point.  Thus we 
perform
                  ;; our own interface discovery here.
                  (define valid?
-                   (negate loopback-network-interface?))
+                   (lambda (interface)
+                     (and (arp-network-interface? interface)
+                          (not (loopback-network-interface? interface)))))
                  (define ifaces
                    (filter valid? (all-network-interface-names)))