Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 92833f0f authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Updated [PreFront.read_whole_file].

parent 427ac865
......@@ -21,12 +21,12 @@ let read_whole_file filename =
let block_size = 16384 in
let b = Buffer.create block_size in
let s = String.create block_size in
let s = Bytes.create block_size in
let rec loop () =
let read = input channel s 0 block_size in
if read > 0 then begin
Buffer.add_substring b s 0 read;
Buffer.add_subbytes b s 0 read;
loop()
end
in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment