diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-06 20:10:27 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-04-10 20:34:47 +0100 |
commit | c41f786193ac023582c90c20d94091a3bdb3b28b (patch) | |
tree | 3cb3c2391720541a6c5f6418bb0a00dcadf8d373 /scripts | |
parent | 549e3cca1ace8c5ed50b3f78ef737c5120141515 (diff) | |
download | build-coordinator-c41f786193ac023582c90c20d94091a3bdb3b28b.tar build-coordinator-c41f786193ac023582c90c20d94091a3bdb3b28b.tar.gz |
Implement storing builds
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-build-coordinator.in | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 286b464..f3db030 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -86,10 +86,12 @@ (match (assq-ref opts 'arguments) ((derivation-file) - (submit-build - (database-uri->datastore - (assq-ref opts 'database)) - derivation-file))))) + + (let ((uuid (submit-build + (database-uri->datastore + (assq-ref opts 'database)) + derivation-file))) + (simple-format #t "build submitted as ~A\n" uuid)))))) ((arguments ...) (let ((opts (parse-options arguments))) |