summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-09-26 23:26:57 +0200
committerLudovic Courtès <ludo@gnu.org>2013-09-27 00:46:17 +0200
commit3abf9b440b97c35d078c60490723684ca757f480 (patch)
treef7fdad49a1d98b7c250a3f25329397741aea2f43 /gnu
parentdadee6cd6e775741d85e8b968e7f1ce3123385a4 (diff)
downloadpatches-3abf9b440b97c35d078c60490723684ca757f480.tar
patches-3abf9b440b97c35d078c60490723684ca757f480.tar.gz
gnu: vm: Add /etc/{services,protocols,rpc} to the image.
* gnu/system/vm.scm (system-qemu-image): Link /etc/{services,protocols,rpc}. Add net-base as an input.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/vm.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index c4ca2e3343..52beb18108 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -467,6 +467,13 @@ Happy birthday, GNU! http://www.gnu.org/gnu30
(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 @@ You can log in as 'guest' or 'root' with no password.
("/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 @@ You can log in as 'guest' or 'root' with no password.
("etc-bashrc" ,bashrc)
("etc-issue" ,issue)
("etc-motd" ,motd)
+ ("net-base" ,net-base)
,@(append-map service-inputs
%dmd-services))))))