nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
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 @@ Happy birthday, GNU! http://www.gnu.org/gnu30
(add-text-to-store store "resolv.conf" (add-text-to-store store "resolv.conf"
"nameserver 10.0.2.3\n")) "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))) (parameterize ((%guile-for-build (package-derivation store guile-final)))
(let* ((bash-drv (package-derivation store bash)) (let* ((bash-drv (package-derivation store bash))
(bash-file (string-append (derivation->output-path bash-drv) (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/resolv.conf" -> ,resolv.conf)
("/etc/profile" -> ,bashrc) ("/etc/profile" -> ,bashrc)
("/etc/issue" -> ,issue) ("/etc/issue" -> ,issue)
("/etc/services" -> ,etc-services)
("/etc/protocols" -> ,etc-protocols)
("/etc/rpc" -> ,etc-rpc)
(directory "/var/nix/gcroots") (directory "/var/nix/gcroots")
("/var/nix/gcroots/default-profile" -> ,profile) ("/var/nix/gcroots/default-profile" -> ,profile)
(directory "/home/guest"))) (directory "/home/guest")))
@ -588,6 +598,7 @@ You can log in as 'guest' or 'root' with no password.
("etc-bashrc" ,bashrc) ("etc-bashrc" ,bashrc)
("etc-issue" ,issue) ("etc-issue" ,issue)
("etc-motd" ,motd) ("etc-motd" ,motd)
("net-base" ,net-base)
,@(append-map service-inputs ,@(append-map service-inputs
%dmd-services)))))) %dmd-services))))))