diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-13 20:33:07 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-13 20:33:07 +0100 |
| commit | 971a474f6505df4941b5e5be61fa004e4c1bbdd1 (patch) | |
| tree | d82170ebbbbe38d5f6a4dc191c3e030ccaf96bc4 | |
| parent | 7936ca2e54f84d9d9d545c845c1536c3417ab217 (diff) | |
| download | data-service-971a474f6505df4941b5e5be61fa004e4c1bbdd1.tar data-service-971a474f6505df4941b5e5be61fa004e4c1bbdd1.tar.gz | |
Update delete-unreferenced-derivations
To delete from latest_build_status as well.
| -rw-r--r-- | guix-data-service/data-deletion.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 347ffcf..6480785 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -343,6 +343,14 @@ DELETE FROM build_status WHERE build_id IN (" conn (string-append " +DELETE FROM latest_build_status WHERE build_id IN (" + (string-join build-ids ",") + ")")) + + (exec-query + conn + (string-append + " DELETE FROM builds WHERE id IN (" (string-join build-ids ",") ")"))))) |