X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcClassDcl.lhs;h=f431cd672a97690a40a1d87f546ab84ad083be77;hb=eed46085e70d1bfbc0f85996821b5d8002278278;hp=daa03d0dd82ba502666fbafb41e259f5dfb45c54;hpb=57e2a6906e520cd988e8c6010c52f720efe8b985;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcClassDcl.lhs b/compiler/typecheck/TcClassDcl.lhs
index daa03d0..f431cd6 100644
--- a/compiler/typecheck/TcClassDcl.lhs
+++ b/compiler/typecheck/TcClassDcl.lhs
@@ -521,7 +521,7 @@ mkDefMethRhs origin clas inst_tys sel_id loc GenDefMeth
 	   	  (badGenericInstance sel_id (notGeneric tycon))
 
 	; dflags <- getDOpts
-	; ioToTcRn (dumpIfSet_dyn dflags Opt_D_dump_deriv "Filling in method body" 
+	; liftIO (dumpIfSet_dyn dflags Opt_D_dump_deriv "Filling in method body"
 		   (vcat [ppr clas <+> ppr inst_tys,
 			  nest 2 (ppr sel_id <+> equals <+> ppr rhs)]))
 
@@ -602,8 +602,8 @@ getGenericInstances class_decls
 
 	-- Otherwise print it out
 	{ dflags <- getDOpts
-	; ioToTcRn (dumpIfSet_dyn dflags Opt_D_dump_deriv "Generic instances" 
-	 	   (vcat (map pprInstInfoDetails gen_inst_info)))	
+	; liftIO (dumpIfSet_dyn dflags Opt_D_dump_deriv "Generic instances"
+	         (vcat (map pprInstInfoDetails gen_inst_info)))	
 	; return gen_inst_info }}
 
 get_generics decl@(ClassDecl {tcdLName = class_name, tcdMeths = def_methods})