1 files changed, 0 insertions, 15 deletions
diff --git a/src/common.ml b/src/common.ml
index dd2f6b1..04225f9 100644
--- a/src/common.ml
+++ b/src/common.ml
@@ -829,21 +829,6 @@ let words s =
   in
   collect (words_ [] 0) (split_at '\n' s)
 
-let to_CamelCase s_ =
-  let l = ref [] in
-  let s = String.copy s_ in
-  for i = 1 to String.length s - 1 do 
-      if is_uppercase (String.unsafe_get s i) && is_lowercase (String.unsafe_get s (i-1)) then (
-	String.set s i (Char.lowercase (String.get s i)) ;
-        l := i :: !l
-      )
-  done ;
-  if !l = [] then None else
-  let offset, s' = fold_left (fun (offset, s') i -> 
-    i, s' ^ String.sub s offset (i-offset) ^ "_"
-  ) (0, "") (rev !l) in
-  Some (s' ^ String.sub s offset (String.length s - offset))
-
 let concat_symlink file link =
   if str_begins_with "..//" link then (* ..//foo => /foo *)
     skip_n_char 3 link