From 89be9efbf6dbd8a04fb8ccab4c9aa7a11b9a0f03 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 28 Oct 2015 11:16:47 -0400
Subject: Printing of @{} instances for polymorphic references in Print and
 About.

---
 printing/printer.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'printing/printer.ml')

diff --git a/printing/printer.ml b/printing/printer.ml
index 18e4902255..f4852b1089 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -825,3 +825,7 @@ let pr_polymorphic b =
     if b then str"Polymorphic " else str"Monomorphic "
   else mt ()
 
+let pr_universe_instance ctx =
+  let inst = Univ.UContext.instance ctx in
+    str"@{" ++ Univ.Instance.pr Univ.Level.pr inst ++ str"}"
+
-- 
cgit v1.2.3