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 489fc437 hydra: services: ‘cleanup-cuirass-roots’ service preserves
*.iso and *.qcow2.
489fc437 is described below
commit 489fc437c7b3aa0af41a40d6090eb4c51ced0028
Author: Ludovic Courtès <[email protected]>
AuthorDate: Fri Jun 14 11:10:07 2024 +0200
hydra: services: ‘cleanup-cuirass-roots’ service preserves *.iso and
*.qcow2.
Fixes a bug whereby Cuirass build products referred to by
<https://guix.gnu.org/en/download/latest/> would vanish prematurely.
* hydra/modules/sysadmin/services.scm
(cleanup-cuirass-roots)[handle-gc-root]:
Remove *.iso and *.qcow2 from the list.
---
hydra/modules/sysadmin/services.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/hydra/modules/sysadmin/services.scm
b/hydra/modules/sysadmin/services.scm
index c6709b8a..128b0c15 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -126,13 +126,14 @@
(- now (* 2 3600 24))))
(define (handle-gc-root file stat deleted)
- ;; Remove disk images, including *-installation (disk
- ;; images of the targets of installation tests.)
+ ;; Remove disk images, including *-installation (disk images of
+ ;; the targets of installation tests); however preserve GC roots
+ ;; for *.iso, *.qcow2, *raw-image, which might be build products
+ ;; listed at <https://guix.gnu.org/en/download/latest/>.
(if (and (or (string-suffix? "-test" file)
(string-suffix? "-run-vm.sh" file)
(string-suffix? "-disk-image" file)
(string-suffix? "-iso9660-image" file)
- (string-suffix? ".iso" file)
(string-suffix? "-iso-image-installer" file)
(string-suffix? "-qemu-image" file)
(string-suffix? "-image-dir" file)
@@ -141,7 +142,6 @@
(string-suffix? "docker-image.tar.gz" file)
(string-suffix? "partition.img" file)
(string-suffix? "genimage.cfg" file)
- (string-suffix? ".qcow2" file)
(string-suffix? "-os" file)
(string-suffix? "-os-encrypted" file)
(string-suffix? "-installation" file))
