branch master updated: Update delete-unreferenced-derivations

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new 971a474  Update delete-unreferenced-derivations
971a474 is described below

commit 971a474f6505df4941b5e5be61fa004e4c1bbdd1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Oct 13 20:33:07 2020 +0100

    Update delete-unreferenced-derivations
    
    To delete from latest_build_status as well.
---
 guix-data-service/data-deletion.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

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 ",")
           ")")))))