X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcDeriv.lhs;h=2edd8361058480088578edd57eba6f22d0a69acf;hb=4c6a3f787abcaed009a574196d82237d9ae64fc8;hp=a1f98a94fe34947a90717a83eae72e4d5a1d3c49;hpb=492741cd8b82a6be2a3862b0724b2a02e6e15d00;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs
index a1f98a9..2edd836 100644
--- a/compiler/typecheck/TcDeriv.lhs
+++ b/compiler/typecheck/TcDeriv.lhs
@@ -46,6 +46,7 @@ import SrcLoc
 import Util
 import ListSetOps
 import Outputable
+import FastString
 import Bag
 \end{code}
 
@@ -286,8 +287,8 @@ tcDeriving tycl_decls inst_decls deriv_decls
 	; let inst_info = insts1 ++ insts2
 
 	; dflags <- getDOpts
-	; ioToTcRn (dumpIfSet_dyn dflags Opt_D_dump_deriv "Derived instances" 
-	  	   (ddump_deriving inst_info rn_binds))
+	; liftIO (dumpIfSet_dyn dflags Opt_D_dump_deriv "Derived instances"
+	         (ddump_deriving inst_info rn_binds))
 
 	; return (inst_info, rn_binds) }
   where