Source file `name.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open! Base
open! Import

type t = string

let of_string = Fn.id
let to_constructor_string = Fn.id

let to_lowercase_string t =
  let string = String.lowercase t in
  if Keyword.is_keyword string then string ^ "_" else string
;;