nonempty_list.ml
stdune
stdune.filesystem_stubs
1 2 3 4 5 6 7 type 'a t = ( :: ) of 'a * 'a list let of_list = function | [] -> None | x :: xs -> Some (x :: xs) let to_list (x :: xs) = List.cons x xs
1 2 3 4 5 6 7
type 'a t = ( :: ) of 'a * 'a list let of_list = function | [] -> None | x :: xs -> Some (x :: xs) let to_list (x :: xs) = List.cons x xs