02/02: hydra: bayfront: Add a bunch of services.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 2166f3ff01545822562e25ee63844ff0e77c2d0f
Author: Ludovic Courtès <address@hidden>
Date:   Tue Oct 4 22:10:39 2016 +0200

    hydra: bayfront: Add a bunch of services.
    
    * hydra/bayfront.scm (%gc-job): New variable.
    [services]: Add 'guix publish', rottlog, and mcron.  Modify
    'guix-service-type' to disable substitutes.
---
 hydra/bayfront.scm |   24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 68427eb..4568f0b 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -1,8 +1,8 @@
 ;; OS configuration for bayfront, the frontend of the compile farm.
 
 (use-modules (gnu) (sysadmin people))
-(use-service-modules networking ssh)
-(use-package-modules admin linux vim)
+(use-service-modules networking admin mcron ssh)
+(use-package-modules admin linux vim package-management)
 
 (define %sysadmins
   ;; The sysadmins.
@@ -23,6 +23,11 @@
       (target "/dev/md0")
       (type raid-device-mapping)))
 
+(define %gc-job
+  ;; The garbage collection mcron job, once per day.
+  #~(job '(next-hour '(4))
+         (string-append #$guix "/bin/guix gc -F80G")))
+
 (operating-system
   (host-name "bayfront")
   (timezone "Europe/Paris")
@@ -51,5 +56,18 @@
   (services (cons* (service sysadmin-service-type %sysadmins)
                    (dhcp-client-service)
                    (lsh-service #:port-number 9024)
-                   %base-services)))
+                   (guix-publish-service #:port 9080)
+
+                   (service rottlog-service-type (rottlog-configuration))
+                   (service mcron-service-type
+                            (mcron-configuration
+                             (jobs (list %gc-job))))
+
+                   (modify-services %base-services
+                     ;; Disable substitutes altogether.
+                     (guix-service-type config =>
+                                        (guix-configuration
+                                         (inherit config)
+                                         (authorized-keys '())
+                                         (use-substitutes? #f)))))))