From 4970448edf28359c6869010f9cd028c01c7b6315 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sun, 22 Jul 2018 19:06:50 +0200 Subject: [PATCH] Add Module.uncapitalize Signed-off-by: Rudi Grinberg --- src/module.ml | 2 ++ src/module.mli | 2 ++ 2 files changed, 4 insertions(+) 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