diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:38:19 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:38:19 +0100 |
commit | f2047249d37d7371015cdb0d7964b130b736f236 (patch) | |
tree | 6e41b60063bd51ccbbb02aa9b8a3bbb9dd109074 /guix-build-coordinator/coordinator.scm | |
parent | 97e1f3376b3cbce08fb9129da867f0229a2d6eb6 (diff) | |
download | build-coordinator-f2047249d37d7371015cdb0d7964b130b736f236.tar build-coordinator-f2047249d37d7371015cdb0d7964b130b736f236.tar.gz |
Extract out a procedure for the data directory for a build
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 4a2acd4..446f491 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -224,10 +224,14 @@ `(,@agent ; description (builds . ,(list->vector allocated-builds))))) +(define (build-data-location build-id ) + (string-append (%config 'builds-dir) "/" + build-id)) + (define (build-output-file-location datastore build-id output-name) (let ((output (datastore-find-build-output datastore build-id output-name))) - (string-append (%config 'builds-dir) "/" - build-id "/outputs/" output-name "/" + (string-append (build-data-location build-id) + "/outputs/" output-name "/" (basename output) ".nar.lz"))) |