simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

another bugfix

Browse source
This commit is contained in:
Simon Cruanes 2015-05-18 22:04:40 +02:00
parent 4c4f7995c1
commit 14c814e6fd
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/misc/printBox.ml
View file

@ -76,7 +76,7 @@ module Output = struct
)
let _ensure_line line i =
if i >= !_string_len line.bl_str
if i >= Bytes.length line.bl_str
then (
let str' = Bytes.make (2 * i + 5) ' ' in
Bytes.blit line.bl_str 0 str' 0 line.bl_len;
@ -119,7 +119,7 @@ module Output = struct
let buf_to_lines ?(indent=0) buf =
let buffer = Buffer.create (5 + buf.buf_len * 32) in
for i = 0 to buf.buf_len - 1 do
for _ = 1 to indent do Buffer.add_char buffer ' ' done;
for _k = 1 to indent do Buffer.add_char buffer ' ' done;
let line = buf.buf_lines.(i) in
Buffer.add_substring buffer (Bytes.unsafe_to_string line.bl_str) 0 line.bl_len;
Buffer.add_char buffer '\n';
@ -128,7 +128,7 @@ module Output = struct
let buf_output ?(indent=0) oc buf =
for i = 0 to buf.buf_len - 1 do
for _ = 1 to indent do output_char oc ' '; done;
for _k = 1 to indent do output_char oc ' '; done;
let line = buf.buf_lines.(i) in
output oc line.bl_str 0 line.bl_len;
output_char oc '\n';