test: fix a test that wouldn't pass on 4.03

This commit is contained in:
Simon Cruanes 2020-07-22 17:15:09 -04:00 committed by Fardale
parent 4122ffa6ab
commit 644e3487a3

View file

@ -398,7 +398,7 @@ let of_seq seq = add_seq_front seq empty
(*$Q
(Q.list Q.int) (fun l -> \
of_list l |> to_seq |> List.of_seq = l)
of_list l |> to_seq |> CCList.of_seq = l)
*)
let _map_digit : type l. ('a -> 'b) -> ('a, l) digit -> ('b, l) digit = fun f d -> match d with