diff --git a/src/module.ml b/src/module.ml
index 29de6356..bf690ac9 100644
--- a/src/module.ml
+++ b/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
 
diff --git a/src/module.mli b/src/module.mli
index 2761ab03..e09f6182 100644
--- a/src/module.mli
+++ b/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