Update rng/unix/urandom.ml

Co-authored-by: Török Edwin <[email protected]>
mirage · Jan 7, 2025 · 5f5f101 · 5f5f101
1 parent 9d30a60
commit 5f5f101
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/rng/unix/urandom.ml b/rng/unix/urandom.ml
@@ -1,7 +1,8 @@
 
 type g = In_channel.t * Mutex.t
 
-let block = 2048
+(* The OCaml runtime always reads at least IO_BUFFER_SIZE from an input channel, which is currently 64 KiB *)
+let block = 65536
 
 let create ?time:_ () =
   let ic = In_channel.open_bin "/dev/urandom"