From: simonpj <unknown>
Date: Mon, 18 Mar 2002 15:22:31 +0000 (+0000)
Subject: [project @ 2002-03-18 15:22:31 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~2249
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2e95d5409279298a6c59492210001f468fcf47c3;p=ghc-hetmet.git

[project @ 2002-03-18 15:22:31 by simonpj]
Remove spurious ? in linear implicit parameter printing
---

diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs
index 80ccae7..a351875 100644
--- a/ghc/compiler/typecheck/TcMonad.lhs
+++ b/ghc/compiler/typecheck/TcMonad.lhs
@@ -701,9 +701,9 @@ pprInstLoc (orig, locn, ctxt)
     pp_orig (OccurrenceOf id)
       	= hsep [ptext SLIT("use of"), quotes (ppr id)]
     pp_orig (IPOcc name)
-      	= hsep [ptext SLIT("use of implicit parameter"), quotes (char '?' <> ppr name)]
+      	= hsep [ptext SLIT("use of implicit parameter"), quotes (ppr name)]
     pp_orig (IPBind name)
-      	= hsep [ptext SLIT("binding for implicit parameter"), quotes (char '?' <> ppr name)]
+      	= hsep [ptext SLIT("binding for implicit parameter"), quotes (ppr name)]
     pp_orig RecordUpdOrigin
 	= ptext SLIT("a record update")
     pp_orig DataDeclOrigin