branch master updated: hydra: node-129: Add the nar-herder to start syncing bordeaux nars.

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new f15acee  hydra: node-129: Add the nar-herder to start syncing bordeaux 
nars.
f15acee is described below

commit f15acee184ad578803a77e57e2131383377c4583
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon May 22 10:28:44 2023 +0100

    hydra: node-129: Add the nar-herder to start syncing bordeaux nars.
    
    As part of the plan to store and serve bordeaux nars from the attached
    SSDs, this commit adds the nar-herder to start downloading the nars.
    
    This is mirroring from bishan as that has most of the nars, and this
    avoids downloading everything via bayfront.
    
    The next step will be to setup DNS and deploy NGinx.
    
    * hydra/deploy-node-129.scm (node-129-os) [packages]: Add nss-certs.
    [file-systems]: Mount the @bordeaux-nars subvolume.
    [services]: Add the nar-herder.
---
 hydra/deploy-node-129.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/hydra/deploy-node-129.scm b/hydra/deploy-node-129.scm
index b17e53f..253ecc8 100644
--- a/hydra/deploy-node-129.scm
+++ b/hydra/deploy-node-129.scm
@@ -30,9 +30,11 @@
 (use-modules (gnu bootloader)
              (gnu bootloader grub)
              (gnu packages linux)
+             (gnu packages certs)
              (gnu services base)
              (gnu services mcron)
              (gnu services rsync)
+             (gnu services guix)
              (gnu services ssh)
              (gnu system file-systems)
             (gnu system linux-initrd)
@@ -176,6 +178,8 @@ devices {
         (targets (list "/boot/efi" "/boot/efi2"))))
       (packages
        (cons* multipath-tools
+              ;; Needed for the nar-herder
+              nss-certs
               (operating-system-packages base-os)))
       (file-systems (cons*
                     (file-system
@@ -204,6 +208,8 @@ devices {
                      ;; directory.
                      (btrfs-subvolume-mount "@publish-mirror"
                                             "/srv/publish/substitutes")
+                     (btrfs-subvolume-mount "@bordeaux-nars" 
"/srv/bordeaux/nars"
+                                            #:device-uuid %btrfs-ssd-uuid)
                      %base-file-systems))
       (services
        (cons* (simple-service 'copy-kernel+initrd-to-/boot
@@ -218,6 +224,14 @@ devices {
                          (list (rsync-module
                                 (name "substitutes")
                                 (file-name "/srv/publish/substitutes"))))))
+
+              (service nar-herder-service-type
+                       (nar-herder-configuration
+                        (mirror "https://bishan.guix.gnu.org";)
+                        (storage "/srv/bordeaux/nars")
+                        (ttl "180d")
+                        (log-level 'DEBUG)))
+
               (modify-services (operating-system-user-services base-os)
                 (mcron-service-type
                  config => (mcron-configuration