diff options
Diffstat (limited to 'printing/genprint.ml')
-rw-r--r-- | printing/genprint.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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 ">"); |