2 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml
index 549c40e30c..b161b966e1 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -99,6 +99,10 @@ let strip s =
   let a = lstrip_rec 0 and b = rstrip_rec (n-1) in
   String.sub s a (b-a+1)
 
+let drop_simple_quotes s =
+  let n = String.length s in
+  if n > 2 & s.[0] = '\'' & s.[n-1] = '\'' then String.sub s 1 (n-2) else s
+
 (* substring searching... *)
 
 (* gdzie = where, co = what *)
diff --git a/lib/util.mli b/lib/util.mli
index 84762badeb..5e32a1b0ea 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -83,6 +83,7 @@ val is_blank : char -> bool
 val explode : string -> string list
 val implode : string list -> string
 val strip : string -> string
+val drop_simple_quotes : string -> string
 val string_index_from : string -> int -> string -> int
 val string_string_contains : where:string -> what:string -> bool
 val plural : int -> string -> string