me/guix
Archived
1
0
Fork 0
Code Activity

system: hurd: Add net-base and inetutils, and /etc/{services,protocols}.

Browse source 
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.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-04-08 17:39:30 +02:00 • committed by Ludovic Courtès
parent c621269404
commit db047a482c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/system/hurd.scm
View file

@ -21,6 +21,7 @@
#:use-module (guix profiles) #:use-module (guix profiles)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu bootloader grub) #:use-module (gnu bootloader grub)
#:use-module (gnu packages admin)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages cross-base) #:use-module (gnu packages cross-base)
@ -48,7 +49,8 @@
#:target target)) #:target target))
(define %base-packages/hurd (define %base-packages/hurd
(list hurd bash coreutils file findutils grep sed guile-3.0)) (list hurd bash coreutils file findutils grep sed guile-3.0
net-base inetutils))
(define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach)) (define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach))
"Return a cross-built GNU/Hurd image." "Return a cross-built GNU/Hurd image."
@ -158,7 +160,14 @@ fi\n"))
(file "/etc/hostname" "guixygnu") (file "/etc/hostname" "guixygnu")
(file "/etc/resolv.conf" (file "/etc/resolv.conf"
"nameserver 10.0.2.3\n") "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 ("/etc/motd" -> ,(file-append (with-parameters ((%current-target-system
"i586-pc-gnu")) "i586-pc-gnu"))
hurd) hurd)