Guard against derivation IDs that aren't numbers

I saw an error suggesting that something came back that wasn't a number, and this should give a more informative error.
2023-12-14 03:23:03 +01:00 · 2020-10-09 19:27:04 +01:00 · 2020-10-09 19:27:04 +01:00 · 2c463fcdab
parent f1eb2d3bd2
commit 2c463fcdab
1 changed files with 5 additions and 0 deletions
--- 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