2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml
index 4f64b3a6e4..953c8187e2 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -99,6 +99,8 @@ let string_string_contains ~where ~what =
   with
       Not_found -> false
 
+let plural n s = if n>1 then s^"s" else s
+
 (* string parsing *)
 
 let parse_loadpath s =
diff --git a/lib/util.mli b/lib/util.mli
index 6fbe23c289..9497f9a4d2 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -68,6 +68,7 @@ val explode : string -> string list
 val implode : string list -> string
 val string_index_from : string -> int -> string -> int
 val string_string_contains : where:string -> what:string -> bool
+val plural : int -> string -> string
 
 val parse_loadpath : string -> string list