[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: hydra: services: Remove GC roots for *-installati
From: |
Ludovic Courtès |
Subject: |
branch master updated: hydra: services: Remove GC roots for *-installation. |
Date: |
Tue, 11 Feb 2020 10:53:59 -0500 |
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: hydra: services: Remove GC roots for *-installation.,
Ludovic Courtès <=