diff options
| author | Emilio Jesus Gallego Arias | 2018-06-01 02:37:15 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-06-12 14:42:28 +0200 |
| commit | 615290d0f9d5cad7c508d45cf4ab89aecff033b2 (patch) | |
| tree | f5db022987df54435d807017f4f647ca9e275e9c /printing/ppconstr.ml | |
| parent | 4aaeb5d429227505adfde9fe04c3c0fb69f2d37f (diff) | |
[api] Remove Misctypes.
We move the last 3 types to more adequate places.
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 02204495a3..6057819931 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -23,7 +23,6 @@ open Constrexpr open Constrexpr_ops open Notation_gram open Decl_kinds -open Misctypes open Namegen (*i*) @@ -243,8 +242,8 @@ let tag_var = tag Tag.variable | x -> pr_ast Name.print x let pr_or_var pr = function - | ArgArg x -> pr x - | ArgVar id -> pr_lident id + | Locus.ArgArg x -> pr x + | Locus.ArgVar id -> pr_lident id let pr_prim_token = function | Numeral (n,s) -> str (if s then n else "-"^n) |