From aeea421e753c28f18a587e9ed85b85a535042c22 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 27 Mar 2021 17:49:40 +0000 Subject: Add some error handling for POST builds --- guix-build-coordinator/client-communication.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 664b9aa..e02e9f9 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -357,6 +357,12 @@ 1000))))))))) (('POST "builds") (let ((derivation-file (assoc-ref body "derivation"))) + (unless (string? derivation-file) + (raise-exception + (make-exception-with-message + (simple-format #f "derivation must be a string: ~A\n" + derivation)))) + (let ((derivation-database-entry (datastore-find-derivation datastore derivation-file))) (unless derivation-database-entry -- cgit v1.2.3