store: Use 'write-bytevector' instead of hand-coded equivalent.
* guix/store.scm (process-stderr): Use 'write-bytevector' in the %STDERR-READ case.master
parent
cd041b268e
commit
396d12faea
|
@ -581,9 +581,7 @@ encoding conversion errors."
|
||||||
(let* ((max-len (read-int p))
|
(let* ((max-len (read-int p))
|
||||||
(data (make-bytevector max-len))
|
(data (make-bytevector max-len))
|
||||||
(len (get-bytevector-n! user-port data 0 max-len)))
|
(len (get-bytevector-n! user-port data 0 max-len)))
|
||||||
(write-int len p)
|
(write-bytevector data p)
|
||||||
(put-bytevector p data 0 len)
|
|
||||||
(write-padding len p)
|
|
||||||
#f))
|
#f))
|
||||||
((= k %stderr-next)
|
((= k %stderr-next)
|
||||||
;; Log a string. Build logs are usually UTF-8-encoded, but they
|
;; Log a string. Build logs are usually UTF-8-encoded, but they
|
||||||
|
|
Reference in New Issue