branch master updated: hydra: services: Remove GC roots for *-installation.

[Ludovic Courtès]

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

civodul pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 4a2cd81  hydra: services: Remove GC roots for *-installation.
4a2cd81 is described below

commit 4a2cd81ff80aa3ac84ab8fed7107c965d8d91c9d
Author: Ludovic Courtès <address@hidden>
AuthorDate: Tue Feb 11 16:51:47 2020 +0100

    hydra: services: Remove GC roots for *-installation.
    
    Reported by Christopher Baines <address@hidden>.
    
    * hydra/modules/sysadmin/services.scm (cleanup-cuirass-roots):
    Remove *-installation in addition to *-disk-image.
---
 hydra/modules/sysadmin/services.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 872182c..c4f4c4f 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -54,7 +54,10 @@
                          (- now (* 5 3600 24))))
 
                     (define (handle-gc-root file stat _)
-                      (when (and (string-suffix? "-disk-image" file)
+                      ;; Remove disk images, including *-installation (disk
+                      ;; images of the targets of installation tests.)
+                      (when (and (or (string-suffix? "-disk-image" file)
+                                     (string-suffix? "-installation" file))
                                  (old? stat))
                         (catch 'system-error
                           (lambda ()