diff options
author | Christopher Baines <mail@cbaines.net> | 2021-03-27 17:49:40 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-03-27 17:49:40 +0000 |
commit | aeea421e753c28f18a587e9ed85b85a535042c22 (patch) | |
tree | 3a8787f13e40f12d801a2a8a35affe74c9ebfc5a /guix-build-coordinator/client-communication.scm | |
parent | 7ed0a927d889ba800800f96370aba7824e20fa10 (diff) | |
download | build-coordinator-aeea421e753c28f18a587e9ed85b85a535042c22.tar build-coordinator-aeea421e753c28f18a587e9ed85b85a535042c22.tar.gz |
Add some error handling for POST builds
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 |