diff options
author | Christopher Baines <mail@cbaines.net> | 2021-05-21 20:29:43 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-05-21 20:29:43 +0100 |
commit | d6d62e3e0eb61fb4c6b9b9f5f8c8636e23b73d60 (patch) | |
tree | 97c2090d79d2c0fa63b5a931e1451db0ffb04f1f /guix-build-coordinator/client-communication.scm | |
parent | 671c5ed1596fd69a832a126c2efb5eaea17cf10f (diff) | |
download | build-coordinator-d6d62e3e0eb61fb4c6b9b9f5f8c8636e23b73d60.tar build-coordinator-d6d62e3e0eb61fb4c6b9b9f5f8c8636e23b73d60.tar.gz |
Delay storing derivations in the database
Until actually storing the build, since the build might not actually be
submitted if there's a build for those outputs already.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 3eb2f9e..bf27f93 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -378,10 +378,7 @@ (substitute-derivation derivation-file #:substitute-urls (and=> raw-substitute-urls - vector->list)))))) - (datastore-store-derivation - datastore - (read-derivation-from-file derivation-file)))) + vector->list)))))))) (let ((submit-build-result (apply |