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

fix: join_array on arrays of length=1 had a bound error

Browse source
This commit is contained in:
Simon Cruanes 2023-06-15 11:42:13 -04:00
parent 5d4a29a056
commit 793f57e537
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/fut.ml
View file

@ -259,7 +259,7 @@ let join_container_ ~iter ~map ~len cont : _ t =
let join_array (a : _ t array) : _ array t = let join_array (a : _ t array) : _ array t =
match Array.length a with match Array.length a with
| 0 -> return [||] | 0 -> return [||]
| 1 -> map ?on:None a.(1) ~f:(fun x -> [| x |]) | 1 -> map ?on:None a.(0) ~f:(fun x -> [| x |])
| _ -> join_container_ ~len:Array.length ~map:Array.map ~iter:Array.iter a | _ -> join_container_ ~len:Array.length ~map:Array.map ~iter:Array.iter a
let join_list (l : _ t list) : _ list t = let join_list (l : _ t list) : _ list t =