X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcDeriv.lhs;h=7422c6fa992384629c9fe00e6daaaa1110508415;hb=80ef1f06253f1a20a63816c295e180e47cd9a347;hp=f3224c8a44a47595a701bfb680bc275420f3850a;hpb=219f900f4e518e8158807cdda6fdec8331f701f0;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs
index f3224c8..7422c6f 100644
--- a/compiler/typecheck/TcDeriv.lhs
+++ b/compiler/typecheck/TcDeriv.lhs
@@ -265,7 +265,7 @@ tcDeriving  :: [LTyClDecl Name]  -- All type constructors
 		    HsValBinds Name)	-- Extra generated top-level bindings
 
 tcDeriving tycl_decls inst_decls deriv_decls
-  = recoverM (returnM ([], emptyValBindsOut)) $
+  = recoverM (return ([], emptyValBindsOut)) $
     do	{   	-- Fish the "deriving"-related information out of the TcEnv
 		-- And make the necessary "equations".
 	; early_specs <- makeDerivSpecs tycl_decls inst_decls deriv_decls
@@ -286,8 +286,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