15/23: services: hurd: Use activation-service, hurd-etc-service.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit ee4112ff2106c8c283f0cf292084c217729218a7
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun May 3 16:37:27 2020 +0200

    services: hurd: Use activation-service, hurd-etc-service.
    
    This:
    
        ./pre-inst-env guix system disk-image --no-grafts --target=i586-pc-gnu \
            gnu/system/examples/bare-hurd.tmpl
    
    now produces a minimal working image; you may run it like so
    
        guix environment --ad-hoc qemu -- qemu-system-i386 -enable-kvm -m 512 \
         -snapshot -hda <the-image>
    
    * gnu/system.scm (hurd-default-essential-services): Add %boot-service,
    %activation-service, hurd-etc-service; populate profile with packages.
---
 gnu/system.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index b814181..6642985 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -58,6 +58,7 @@
   #:use-module (gnu services)
   #:use-module (gnu services shepherd)
   #:use-module (gnu services base)
+  #:use-module (gnu services hurd)
   #:use-module (gnu bootloader)
   #:use-module (gnu system shadow)
   #:use-module (gnu system nss)
@@ -608,7 +609,10 @@ bookkeeping."
 
 (define (hurd-default-essential-services os)
   (list (service system-service-type '())
-        (service profile-service-type '())))
+        %boot-service
+        %activation-service
+        (hurd-etc-service os)
+        (service profile-service-type (operating-system-packages os))))
 
 (define* (operating-system-services os)
   "Return all the services of OS, including \"essential\" services."