Add Module.uncapitalize
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
093cefc58b
commit
4970448edf
|
@ -11,6 +11,8 @@ module Name = struct
|
||||||
let of_string = String.capitalize
|
let of_string = String.capitalize
|
||||||
let to_string x = x
|
let to_string x = x
|
||||||
|
|
||||||
|
let uncapitalize = String.uncapitalize
|
||||||
|
|
||||||
let pp = Format.pp_print_string
|
let pp = Format.pp_print_string
|
||||||
let pp_quote fmt x = Format.fprintf fmt "%S" x
|
let pp_quote fmt x = Format.fprintf fmt "%S" x
|
||||||
|
|
||||||
|
|
|
@ -10,6 +10,8 @@ module Name : sig
|
||||||
val of_string : string -> t
|
val of_string : string -> t
|
||||||
val to_string : t -> string
|
val to_string : t -> string
|
||||||
|
|
||||||
|
val uncapitalize : t -> string
|
||||||
|
|
||||||
val pp : Format.formatter -> t -> unit
|
val pp : Format.formatter -> t -> unit
|
||||||
val pp_quote : Format.formatter -> t -> unit
|
val pp_quote : Format.formatter -> t -> unit
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue