···390390 if wc < l then unix_write fd s (j + wc) (l - wc) else ()
391391 in
392392 unix_write fd s 0 (Bytes.length s - Jsonm.Manual.dst_rem e);
393393- Jsonm.Manual.dst e s 0 (String.length s);
393393+ Jsonm.Manual.dst e s 0 (Bytes.length s);
394394 encode fd s e `Await
395395 in
396396 let rec loop fdi fdo ds es d e = match Jsonm.decode d with