simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-03-07 21:27:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

forgot to format
Some checks failed
format / format (push) Has been cancelled
Details
Build and Test / build (push) Has been cancelled
Details

Browse source
This commit is contained in:
Simon Cruanes 2026-02-14 21:08:29 -05:00
parent 42bfe9c8c6
commit bc9f361e56
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/pvec/t_pvec.ml
View file

@ -266,13 +266,15 @@ module Op = struct
list_small gen_x >|= fun l -> list_small gen_x >|= fun l ->
Append l, size + List.length l ); Append l, size + List.length l );
]; ];
(if size < 10_000 then [ (if size < 10_000 then
[
(* flat map can explode, only do it if list isn't too big *) (* flat map can explode, only do it if list isn't too big *)
( 1, ( 1,
list_size (0 -- 5) gen_x >|= fun l -> list_size (0 -- 5) gen_x >|= fun l ->
Flat_map l, size * (1 + List.length l) ); Flat_map l, size * (1 + List.length l) );
] else []) ]
; else
[]);
] ]
in in