From 19d89158f4e0e4be5998f2ff9b64e90270977a32 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sat, 5 Mar 2011 16:42:42 +0000
Subject: Moving printing of module typing errors upwards to himsg.ml so as to
 be able to call term printers.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13886 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/names.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'kernel/names.ml')

diff --git a/kernel/names.ml b/kernel/names.ml
index 6e39b35bb..4466f558f 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -107,6 +107,7 @@ let label_of_mbid (_,s,_) = s
 
 let mk_label l = l
 let string_of_label = string_of_id
+let pr_label l = str (string_of_label l)
 
 let id_of_label l = l
 let label_of_id id = id
-- 
cgit v1.2.3