From 7670e239d60742eb6d57dee155427e18282d1942 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 4 Jun 2002 12:01:38 +0000
Subject: [PATCH] [project @ 2002-06-04 12:01:38 by simonpj] Make the
 type-var-default warning more informative

---
 ghc/compiler/typecheck/TcMType.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcMType.lhs b/ghc/compiler/typecheck/TcMType.lhs
index 38d44c2..5a7e000 100644
--- a/ghc/compiler/typecheck/TcMType.lhs
+++ b/ghc/compiler/typecheck/TcMType.lhs
@@ -414,7 +414,7 @@ mkArbitraryType tv
 	  = tupleTyCon Boxed (length args)	-- *-> ... ->*->*
 
 	  | otherwise
-	  = pprTrace "Urk! Inventing strangely-kinded void TyCon" (ppr tc_name) $
+	  = pprTrace "Urk! Inventing strangely-kinded void TyCon:" (ppr tc_name $$ ppr kind) $
 	    mkPrimTyCon tc_name kind 0 [] VoidRep
 		-- Same name as the tyvar, apart from making it start with a colon (sigh)
 		-- I dread to think what will happen if this gets out into an 
-- 
1.7.10.4