X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=dak%2Fclean_suites.py;h=0d3b473296b319022e0cde273f6b5a02f73850c9;hb=06dae9d2c240755d7788d33abbc9c0bf456ab9a9;hp=52b2a8ccb1f4504003ff487493305e9577ef707c;hpb=99637dce76fc551b15fa6860597a333fb3bfaf46;p=dak.git

diff --git a/dak/clean_suites.py b/dak/clean_suites.py
index 52b2a8cc..0d3b4732 100755
--- a/dak/clean_suites.py
+++ b/dak/clean_suites.py
@@ -163,6 +163,8 @@ def check_files(now_date, delete_date, max_delete, session):
 SELECT id, filename FROM files f
   WHERE NOT EXISTS (SELECT 1 FROM binaries b WHERE b.file = f.id)
     AND NOT EXISTS (SELECT 1 FROM dsc_files df WHERE df.file = f.id)
+    AND NOT EXISTS (SELECT 1 FROM changes_pool_files cpf WHERE cpf.fileid = f.id)
+    AND NOT EXISTS (SELECT 1 FROM queue_files qf WHERE qf.id = f.id)
     AND last_used IS NULL
     ORDER BY filename""")