X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=dak%2Fclean_suites.py;h=72a1d5a8a545bc4695065e37706b9aa2c7a56721;hb=6d0c1b149473118c7efa7384a9f41fdf1428ffaf;hp=52b2a8ccb1f4504003ff487493305e9577ef707c;hpb=918e1b4a2cde257429ec98463ca6731492179fd9;p=dak.git

diff --git a/dak/clean_suites.py b/dak/clean_suites.py
index 52b2a8cc..72a1d5a8 100755
--- a/dak/clean_suites.py
+++ b/dak/clean_suites.py
@@ -163,6 +163,7 @@ 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 last_used IS NULL
     ORDER BY filename""")