diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 7674535..1d8a22c 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -493,6 +493,11 @@ WHERE NOT EXISTS ( 0 (map (lambda (derivation-id) + (unless (string->number derivation-id) + (error + (simple-format #f "derivation-id: ~A is not a number" + derivation-id))) + (with-thread-postgresql-connection (lambda (conn) (with-postgresql-transaction