package anthill

  1. Overview
  2. Docs

Source file wordset.ml

1
2
3
4
5
6
7
8
open Core

module S = Set.Make(String)

include S

let to_lower set =
  fold set ~init:empty ~f:(fun s i -> add s (String.lowercase i));;