ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: vm: Add /etc/{services,protocols,rpc} to the image.

Browse source 
* gnu/system/vm.scm (system-qemu-image): Link
  /etc/{services,protocols,rpc}.  Add net-base as an input.
This commit is contained in:
Ludovic Courtès 2013-09-26 23:26:57 +02:00
parent dadee6cd6e
commit 3abf9b440b
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/system/vm.scm
View file

@ -467,6 +467,13 @@ (define resolv.conf
(add-text-to-store store "resolv.conf"
"nameserver 10.0.2.3\n"))
(define etc-services
(string-append (package-output store net-base) "/etc/services"))
(define etc-protocols
(string-append (package-output store net-base) "/etc/protocols"))
(define etc-rpc
(string-append (package-output store net-base) "/etc/rpc"))
(parameterize ((%guile-for-build (package-derivation store guile-final)))
(let* ((bash-drv (package-derivation store bash))
(bash-file (string-append (derivation->output-path bash-drv)
@ -547,6 +554,9 @@ (define resolv.conf
("/etc/resolv.conf" -> ,resolv.conf)
("/etc/profile" -> ,bashrc)
("/etc/issue" -> ,issue)
("/etc/services" -> ,etc-services)
("/etc/protocols" -> ,etc-protocols)
("/etc/rpc" -> ,etc-rpc)
(directory "/var/nix/gcroots")
("/var/nix/gcroots/default-profile" -> ,profile)
(directory "/home/guest")))
@ -588,6 +598,7 @@ (define resolv.conf
("etc-bashrc" ,bashrc)
("etc-issue" ,issue)
("etc-motd" ,motd)
("net-base" ,net-base)
,@(append-map service-inputs
%dmd-services))))))