simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2025-12-10 21:24:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small fix

Browse source
This commit is contained in:
Simon Cruanes 2023-12-13 13:13:32 -05:00
parent 1f4337cda2
commit 10bea1e417
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/blocking_IO.ml
View file

@ -35,7 +35,10 @@ let rec read ic buf i len =
read ic buf (i + n) (len - n) read ic buf (i + n) (len - n)
) )
let read_line = input_line let read_line ic =
let l = input_line ic in
ignore (Atomic.fetch_and_add n_bytes_read (String.length l) : int);
l
let write oc b i len = let write oc b i len =
output oc b i len; output oc b i len;