From c571cdbbcac5cb4b4a5a19ab2f7ac51222316292 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias <e+git@x80.org>
Date: Mon, 13 Nov 2017 18:43:02 +0100
Subject: [api] Another large deprecation, `Nameops`

---
 printing/pputils.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'printing/pputils.ml')

diff --git a/printing/pputils.ml b/printing/pputils.ml
index 9ef9162ae..3cc7a3e6b 100644
--- a/printing/pputils.ml
+++ b/printing/pputils.ml
@@ -9,7 +9,6 @@
 open Util
 open Pp
 open Genarg
-open Nameops
 open Misctypes
 open Locus
 open Genredexpr
@@ -27,7 +26,7 @@ let pr_located pr (loc, x) =
 
 let pr_or_var pr = function
   | ArgArg x -> pr x
-  | ArgVar (_,s) -> pr_id s
+  | ArgVar (_,s) -> Names.Id.print s
 
 let pr_with_occurrences pr keyword (occs,c) =
   match occs with
-- 
cgit v1.2.3