diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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 |