From 2cf8f76ea6a15d46b57d5c4ecf9513683561e284 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Sat, 19 Mar 2016 18:46:54 +0100
Subject: Removing the untyped representation of genargs.

---
 printing/genprint.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'printing/genprint.ml')

diff --git a/printing/genprint.ml b/printing/genprint.ml
index d8bd81c4c..0ec35e07b 100644
--- a/printing/genprint.ml
+++ b/printing/genprint.ml
@@ -19,8 +19,9 @@ module PrintObj =
 struct
   type ('raw, 'glb, 'top) obj = ('raw, 'glb, 'top) printer
   let name = "printer"
-  let default wit = match unquote (rawwit wit) with
-  | ExtraArgType name ->
+  let default wit = match wit with
+  | ExtraArg tag ->
+    let name = ArgT.repr tag in
     let printer = {
       raw = (fun _ -> str "<genarg:" ++ str name ++ str ">");
       glb = (fun _ -> str "<genarg:" ++ str name ++ str ">");
-- 
cgit v1.2.3