Source file nonempty_list.ml

# 1 "submodules/dune/otherlibs/stdune-unstable/nonempty_list.ml"
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