branch wip-hurd-vm updated: system: hurd: Add net-base and inetutils.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

The following commit(s) were added to refs/heads/wip-hurd-vm by this push:
     new 04abf79  system: hurd: Add net-base and inetutils.
04abf79 is described below

commit 04abf791c979eee0024c823757fa6352d6e39466
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Wed Apr 8 17:39:30 2020 +0200

    system: hurd: Add net-base and inetutils.
    
    This fixes
    
        In procedure getaddrinfo: Servname not supported for ai_socktype
    
    * gnu/system/hurd.scm (%base-packages/hurd): Add net-base, inetutils.
    (cross-hurd-image): Add /etc/{services,protocols} from net-base.
---
 gnu/system/hurd.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index b617036..3adf41f 100644
--- a/gnu/system/hurd.scm
+++ b/gnu/system/hurd.scm
@@ -52,7 +52,8 @@
                       #:target target))
 
 (define %base-packages/hurd
-  (list hurd bash coreutils file findutils grep guile-3.0 guix openssh sed))
+  (list hurd bash coreutils file findutils grep guile-3.0 guix openssh sed
+        net-base inetutils))
 
 (define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach))
   "Return a cross-built GNU/Hurd image."
@@ -164,7 +165,14 @@ fi\n"))
       (file "/etc/hostname" "guixygnu")
       (file "/etc/resolv.conf"
             "nameserver 10.0.2.3\n")
-
+      ("/etc/services" -> ,(file-append (with-parameters 
((%current-target-system
+                                                           "i586-pc-gnu"))
+                                          net-base)
+                                        "/etc/services"))
+      ("/etc/protocols" -> ,(file-append (with-parameters 
((%current-target-system
+                                                            "i586-pc-gnu"))
+                                           net-base)
+                                         "/etc/protocols"))
       ("/etc/motd" -> ,(file-append (with-parameters ((%current-target-system
                                                        "i586-pc-gnu"))
                                       hurd)