From 3abf9b440b97c35d078c60490723684ca757f480 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 26 Sep 2013 23:26:57 +0200 Subject: 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. --- gnu/system/vm.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'gnu/system') 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 @@ (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)))))) -- cgit v1.2.3