X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FInst.lhs;h=7b94e17378aaf111be016a2cac6cf0705776ad53;hb=802b299f16593e95deb6cc2bd5d457444ed92fd1;hp=cd189a5475862c1b3b7e99d7ad486aac00957d84;hpb=7e7c296af4d58fc1ae5d243ff1aa7d55cb1dcc23;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index cd189a5..7b94e17 100644
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -504,11 +504,11 @@ tidyMoreInsts env insts
 tidyInsts :: [Inst] -> (TidyEnv, [Inst])
 tidyInsts insts = tidyMoreInsts emptyTidyEnv insts
 
-showLIE :: String -> TcM ()	-- Debugging
+showLIE :: SDoc -> TcM ()	-- Debugging
 showLIE str
   = do { lie_var <- getLIEVar ;
 	 lie <- readMutVar lie_var ;
-	 traceTc (text str <+> pprInstsInFull (lieToList lie)) }
+	 traceTc (str <+> pprInstsInFull (lieToList lie)) }
 \end{code}