diff options
| -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 |