Update delete-unreferenced-derivations

To delete from latest_build_status as well.
2020-10-13 20:33:07 +01:00 · 2020-10-13 20:33:07 +01:00 · 971a474f65
commit 971a474f65
parent 7936ca2e54
1 changed files with 8 additions and 0 deletions
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@ -339,6 +339,14 @@ DELETE FROM build_status WHERE build_id IN ("
          (string-join build-ids ",")
          ")"))

+        (exec-query
+         conn
+         (string-append
+          "
+DELETE FROM latest_build_status WHERE build_id IN ("
+          (string-join build-ids ",")
+          ")"))
+
        (exec-query
         conn
         (string-append