From 24879dc0e59856e297b0172d00d67df67fbb0184 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 30 May 2012 16:05:13 +0000
Subject: More uniformisation in Pp.warn functions.

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

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index a6942ea889..2384fdd552 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -172,7 +172,7 @@ let type0_univ = Atom UniverseLevel.Set
 
 let is_type0_univ = function
   | Atom UniverseLevel.Set -> true
-  | Max ([UniverseLevel.Set], []) -> warning "Non canonical Set"; true
+  | Max ([UniverseLevel.Set], []) -> msg_warning (str "Non canonical Set"); true
   | u -> false
 
 let is_univ_variable = function
-- 
cgit v1.2.3