Add Module.uncapitalize

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>

src/module.ml

@@ -11,6 +11,8 @@ module Name = struct
   let of_string = String.capitalize
   let to_string x = x
 
+  let uncapitalize = String.uncapitalize
+
   let pp = Format.pp_print_string
   let pp_quote fmt x = Format.fprintf fmt "%S" x
 

src/module.mli

@@ -10,6 +10,8 @@ module Name : sig
   val of_string : string -> t
   val to_string : t -> string
 
+  val uncapitalize : t -> string
+
   val pp : Format.formatter -> t -> unit
   val pp_quote : Format.formatter -> t -> unit