Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: b1c2162c55
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (13 sloc) 0.384 kB
open ExtList
module Make (O : Set.OrderedType) =
struct
include Set.Make (O)
let to_string ?(first="{") ?(last="}") ?(sep=", ") s set =
let f oc x =
BatIO.write_string oc (s x) in
BatIO.to_string (fun oc set ->
BatList.print ~first ~last ~sep f oc (elements set)
) set
let of_enum = Enum.fold add empty
let of_list l = of_enum (List.enum l)
end
Jump to Line
Something went wrong with that request. Please try again.