From aa37087b8e7151ea96321a11012c1064210ef4ea Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 18 Dec 2012 17:09:31 +0000
Subject: Modulification of Label

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16097 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/extraction/mlutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/extraction/mlutil.ml')

diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml
index bcdee5954d..dba77b923a 100644
--- a/plugins/extraction/mlutil.ml
+++ b/plugins/extraction/mlutil.ml
@@ -1306,7 +1306,7 @@ let inline_test r t =
 let con_of_string s =
   let null = Dir_path.empty in
   match Dir_path.repr (dirpath_of_string s) with
-    | id :: d -> make_con (MPfile (Dir_path.make d)) null (label_of_id id)
+    | id :: d -> make_con (MPfile (Dir_path.make d)) null (Label.of_id id)
     | [] -> assert false
 
 let manual_inline_set =
-- 
cgit v1.2.3