diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 1d8a22c..347ffcf 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -381,6 +381,11 @@ RETURNING derivation_outputs.derivation_output_details_id" (for-each (lambda (derivation-output-details-id) + (unless (string->number derivation-output-details-id) + (error + (simple-format #f "derivation-output-details-id: ~A is not a number" + derivation-output-details-id))) + (match (exec-query conn "