From 98f3621b5b0c50aaa48c86e1d6a4269d94388bd3 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 13 Nov 2012 22:38:16 +0000
Subject: More monomorphizations

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15969 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coqide.ml    | 2 +-
 ide/coqide_ui.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'ide')

diff --git a/ide/coqide.ml b/ide/coqide.ml
index 0fac50abe8..4f830a4217 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -1703,7 +1703,7 @@ let main files =
   let windows_actions = GAction.action_group ~name:"Windows" () in
   let help_actions = GAction.action_group ~name:"Help" () in
   let add_gen_actions menu_name act_grp l =
-    let no_under = Util.string_map (fun x -> if x = '_' then '-' else x) in
+    let no_under = Util.String.map (fun x -> if x = '_' then '-' else x) in
     let add_simple_template menu_name act_grp text =
       let text' =
 	let l = String.length text - 1 in
diff --git a/ide/coqide_ui.ml b/ide/coqide_ui.ml
index 2ec72fc1a3..36e071e862 100644
--- a/ide/coqide_ui.ml
+++ b/ide/coqide_ui.ml
@@ -1,6 +1,6 @@
 let ui_m = GAction.ui_manager ();;
 
-let no_under = Util.string_map (fun x -> if x = '_' then '-' else x)
+let no_under = Util.String.map (fun x -> if x = '_' then '-' else x)
 
 let list_items menu li =
   let res_buf = Buffer.create 500 in
-- 
cgit v1.2.3