03/04: hydra/services: cleanup-cuirass-roots: Delete more large files.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 8f484aa24c0abff5f758ea5a4dc92a35f92688e4
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Wed Apr 22 15:21:05 2020 +0200

    hydra/services: cleanup-cuirass-roots: Delete more large files.
    
    * hydra/modules/sysadmin/services.scm (cleanup-cuirass-roots): Delete
    more images and opaque archives.
---
 hydra/modules/sysadmin/services.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 3323efa..040dfcd 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -61,6 +61,12 @@
                       ;; Remove disk images, including *-installation (disk
                       ;; images of the targets of installation tests.)
                       (when (and (or (string-suffix? "-disk-image" file)
+                                     (string-suffix? "-qemu-image" file)
+                                     (string-suffix? ".squashfs" file)
+                                     (string-suffix? "docker-pack.tar.gz" file)
+                                     (string-suffix? "docker-image.tar.gz" 
file)
+                                     (string-suffix? "-installed-os" file)
+                                     (string-suffix? "-installed-os-encrypted" 
file)
                                      (string-suffix? "-installation" file))
                                  (old? stat))
                         (catch 'system-error