diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-04 16:41:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-04 18:05:05 +0200 |
| commit | 396d12faea2dcfeae2572818b55a00d90b4bd213 (patch) | |
| tree | fb67286a756e1d1b42deb5ce35fc8c4a88dfa9a0 | |
| parent | cd041b268e9af4918a696f9f6f2b04e51a2d0599 (diff) | |
| download | patches-396d12faea2dcfeae2572818b55a00d90b4bd213.tar patches-396d12faea2dcfeae2572818b55a00d90b4bd213.tar.gz | |
store: Use 'write-bytevector' instead of hand-coded equivalent.
* guix/store.scm (process-stderr): Use 'write-bytevector' in the
%STDERR-READ case.
| -rw-r--r-- | guix/store.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/store.scm b/guix/store.scm index ee47703a55..b71c47b9bb 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -581,9 +581,7 @@ encoding conversion errors." (let* ((max-len (read-int p)) (data (make-bytevector max-len)) (len (get-bytevector-n! user-port data 0 max-len))) - (write-int len p) - (put-bytevector p data 0 len) - (write-padding len p) + (write-bytevector data p) #f)) ((= k %stderr-next) ;; Log a string. Build logs are usually UTF-8-encoded, but they |