X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcBinds.lhs;h=d9f55874c07efb3d662d1c52452d53560fdfe1e0;hb=a162b85d26966ba0eecc4d2ae02d4fd71f5cb9f8;hp=ea2860a9425a8f5a1a9ff5b7d87b1ad200cdc766;hpb=84b4b408696f0cc65f6ad3acfbd3d62aa82e9831;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs
index ea2860a..d9f5587 100644
--- a/compiler/typecheck/TcBinds.lhs
+++ b/compiler/typecheck/TcBinds.lhs
@@ -56,6 +56,7 @@ import List
 import Util
 import BasicTypes
 import Outputable
+import FastString
 
 import Control.Monad
 \end{code}
@@ -1200,5 +1201,5 @@ missingSigWarn True  name ty
 	; addWarnTcM (env1, mk_msg tidy_ty) }
   where
     mk_msg ty = vcat [ptext SLIT("Definition but no type signature for") <+> quotes (ppr name),
-		      sep [ptext SLIT("Inferred type:") <+> ppr name <+> dcolon <+> ppr ty]]
+		      sep [ptext SLIT("Inferred type:") <+> pprHsVar name <+> dcolon <+> ppr ty]]
 \end{code}