diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-13 13:56:39 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-04-13 13:56:39 +0100 |
commit | dcd67b0b0c0295a1e2540d20fdcf77b6a0395b44 (patch) | |
tree | 3169296e49df947cd9dde070b22d9c8e3047e93b | |
parent | 431dd196e1e613fe1aadc13588c4bf25ce0e2d0a (diff) | |
download | build-coordinator-dcd67b0b0c0295a1e2540d20fdcf77b6a0395b44.tar build-coordinator-dcd67b0b0c0295a1e2540d20fdcf77b6a0395b44.tar.gz |
Start storing outputs in a proper directory
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 85826e6..b42b5e0 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -35,6 +35,7 @@ #:use-module (guix lzlib) #:use-module (guix base64) #:use-module (guix serialization) + #:use-module (guix build utils) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator datastore) #:use-module (guix-build-coordinator coordinator) @@ -168,8 +169,10 @@ port. Also, the port used can be changed by passing the --port option.\n" (let ((agent-id-for-build (datastore-agent-for-build datastore uuid))) (if (authenticated? agent-id-for-build request) - (begin - (call-with-output-file "/dev/null" + (let ((output-file-name + (build-output-file-location datastore uuid output-name))) + (mkdir-p (dirname output-file-name)) + (call-with-output-file output-file-name (lambda (output-port) (let loop ((line (get-line body))) (unless (eof-object? line) |