mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
Annotate ignore
Co-authored-by: Simon Cruanes <simon.cruanes.2007@m4x.org>
This commit is contained in:
parent
f081a04892
commit
db3a70f942
1 changed files with 1 additions and 1 deletions
|
|
@ -406,7 +406,7 @@ let to_array l =
|
|||
let a = Array.make len init in
|
||||
(* Subtract 1 for len->index conversion and 1 for the removed [init] *)
|
||||
let idx = len - 2 in
|
||||
ignore (List.fold_left (fun i x -> a.(i) <- x; i - 1) idx rest);
|
||||
ignore (List.fold_left (fun i x -> a.(i) <- x; i - 1) idx rest : int);
|
||||
a
|
||||
|
||||
(*$Q
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue