diff options
| author | Pierre-Marie Pédrot | 2016-03-19 18:46:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-19 18:52:45 +0100 |
| commit | 2cf8f76ea6a15d46b57d5c4ecf9513683561e284 (patch) | |
| tree | c27263459f294a963966a2c0086793a8db460dd5 /printing | |
| parent | 87250b5090740e06aa717a45f05554a6804aa940 (diff) | |
Removing the untyped representation of genargs.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/genprint.ml | 5 | ||||
| -rw-r--r-- | printing/pptactic.ml | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/printing/genprint.ml b/printing/genprint.ml index d8bd81c4cc..0ec35e07be 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 ">"); diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 7d5e7772c3..d99a5f0d89 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -67,8 +67,8 @@ type 'a extra_genarg_printer = let genarg_pprule = ref String.Map.empty let declare_extra_genarg_pprule wit f g h = - let s = match unquote (topwit wit) with - | ExtraArgType s -> s + let s = match wit with + | ExtraArg s -> ArgT.repr s | _ -> error "Can declare a pretty-printing rule only for extra argument types." in |