diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-05 15:11:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-05 15:25:07 +0100 |
| commit | 7aa1369d6d5a34300045596cdf0bcfd6f4992f9b (patch) | |
| tree | bb5311961f7b115d27d8626bbe0aa8190ac5f029 | |
| parent | e783685ffef7019c26d66be6b82efec09ead7c48 (diff) | |
| download | build-coordinator-7aa1369d6d5a34300045596cdf0bcfd6f4992f9b.tar build-coordinator-7aa1369d6d5a34300045596cdf0bcfd6f4992f9b.tar.gz | |
Close the uncompressed output port explicitly
As this ensures the data is written. This resolves some issues with bytes
missing from the end of nars.
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 3fe16ea..b636fd6 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -310,7 +310,8 @@ (@ (zstd) call-with-zstd-output-port)) ('none (lambda (port proc) - (proc port)))))) + (proc port) + (close-port port)))))) (when (file-exists? temporary-destination) (delete-file temporary-destination)) (apply |