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

diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs
index ea2860a..e3bd657 100644
--- a/compiler/typecheck/TcBinds.lhs
+++ b/compiler/typecheck/TcBinds.lhs
@@ -1200,5 +1200,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}