From 4f338edc4ae9640fd37f7a0bb04110571f02a095 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 30 Apr 2024 09:37:28 +0200
Subject: [PATCH] head-node: Run early-oom.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* head-node.scm (services): Add ‘early-oom-service-type’ instance.
---
 head-node.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/head-node.scm b/head-node.scm
index d31b21e..3511aa7 100644
--- a/head-node.scm
+++ b/head-node.scm
@@ -1,4 +1,3 @@
-
 ;;; System configuration of "guix-hpc4", the Cuirass head node.
 ;;;
 ;;; This module is part of Guix-HPC and is licensed under the same terms,
@@ -12,7 +11,8 @@
              (srfi srfi-1)
              (srfi srfi-26)
              (ice-9 match))
-(use-service-modules admin avahi certbot cuirass databases mcron networking
+(use-service-modules admin avahi certbot cuirass databases linux
+                     mcron networking
                      ssh virtualization web)
 (use-package-modules certs databases screen ssh web)
 (use-modules ((cuirass-package) #:prefix latest:))
@@ -527,6 +527,10 @@
 
                  (service avahi-service-type)     ;for cuirass-remote-server
 
+                 ;; Don't let bogus jobset evaluations put the machine on its
+                 ;; knees.
+                 (service earlyoom-service-type)
+
                  ;; Stop Cuirass when disk space is low.
                  (service disk-space-watchdog-service-type
                           (list (* 1 GiB) (* 1 GiB))))
-- 
GitLab