X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=c2cb33ffea59aa5325baced3f7b9e7311bcfccdb;hb=7e95df790b34e11d7308e43dab0a7175b69b70fc;hp=5bfb406c026807d6aa1af13f9474ebaa93716225;hpb=2c8aabcad1d2f2c469cb8a10afa7b66beeaedd45;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 5bfb406..c2cb33f 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -146,7 +146,7 @@ importDecl name
   where
     nd_doc = ptext (sLit "Need decl for") <+> ppr name
     not_found_msg = hang (ptext (sLit "Can't find interface-file declaration for") <+>
-				pprNameSpace (occNameSpace (nameOccName name)) <+> ppr name)
+				pprNameSpace (occNameSpace (nameOccName name)) <+> (ppr (nameOccName name)))
 	  	       2 (vcat [ptext (sLit "Probable cause: bug in .hi-boot file, or inconsistent .hi file"),
 		                ptext (sLit "Use -ddump-if-trace to get an idea of which file caused the error")])
 \end{code}