From: Twan van Laarhoven <twanvl@gmail.com>
Date: Thu, 17 Jan 2008 21:15:07 +0000 (+0000)
Subject: Monadify typecheck/TcDeriv: use return
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=492741cd8b82a6be2a3862b0724b2a02e6e15d00

Monadify typecheck/TcDeriv: use return
---

diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs
index f3224c8..a1f98a9 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