diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 23:26:57 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-27 00:46:17 +0200 |
| commit | 3abf9b440b97c35d078c60490723684ca757f480 (patch) | |
| tree | f7fdad49a1d98b7c250a3f25329397741aea2f43 /gnu | |
| parent | dadee6cd6e775741d85e8b968e7f1ce3123385a4 (diff) | |
| download | guix-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.scm | 11 |
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)))))) |