X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=9e1bfb97a5bd9e28cb1ee0e1f97f58ceb5e3f5e8;hb=7121d8296720cf1a79259350f361f5771210b23d;hp=7bf2f8763121d1b4f9132f2f66e40cea7981fe7e;hpb=0ab8b6d4e614cfa43529e8f7aa1e6b621f6e0c18;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 7bf2f87..9e1bfb9 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -48,7 +48,8 @@ import TcRules		( tcRules )
 import TcForeign	( tcForeignImports, tcForeignExports )
 import TcInstDcls	( tcInstDecls1, tcInstDecls2 )
 import TcIface		( tcExtCoreBindings, tcHiBootIface )
-import IfaceSyn		( checkBootDecl, tyThingToIfaceDecl, IfaceExtName(..) )
+import MkIface		( tyThingToIfaceDecl )
+import IfaceSyn		( checkBootDecl, IfaceExtName(..) )
 import TcSimplify	( tcSimplifyTop )
 import TcTyClsDecls	( tcTyAndClassDecls )
 import LoadIface	( loadOrphanModules )
@@ -124,13 +125,14 @@ import HscTypes		( InteractiveContext(..),
 			  Dependencies(..) )
 import BasicTypes	( Fixity, RecFlag(..) )
 import SrcLoc		( unLoc )
+import Data.Maybe	( isNothing )
 #endif
 
 import FastString	( mkFastString )
 import Util		( sortLe )
 import Bag		( unionBags, snocBag, emptyBag, unitBag, unionManyBags )
 
-import Data.Maybe	( isJust, isNothing )
+import Data.Maybe	( isJust )
 \end{code}
 
 
@@ -427,6 +429,7 @@ tc_rn_src_decls boot_details ds
 	-- Rename the splice expression, and get its supporting decls
 	(rn_splice_expr, splice_fvs) <- rnLExpr splice_expr ;
 	failIfErrsM ;	-- Don't typecheck if renaming failed
+	rnDump (ppr rn_splice_expr) ;
 
 	-- Execute the splice
 	spliced_decls <- tcSpliceDecls rn_splice_expr ;