From: Ian Lynagh <igloo@earth.li>
Date: Sat, 3 May 2008 20:33:54 +0000 (+0000)
Subject: Change a mappM to mapM_
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fcbf35d3ade983f5290e08cd7a81257b6645801e

Change a mappM to mapM_
---

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index fe87cf5..c7b2368 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -544,7 +544,7 @@ lambdas.  So it seems simmpler not to check at all, and that is why
 check_e is commented out.
 	
 \begin{code}
-checkValidRule :: FastString -> [Name] -> LHsExpr Name -> NameSet -> RnM [()]
+checkValidRule :: FastString -> [Name] -> LHsExpr Name -> NameSet -> RnM ()
 checkValidRule rule_name ids lhs' fv_lhs'
   = do 	{ 	-- Check for the form of the LHS
 	  case (validRuleLhs ids lhs') of
@@ -553,7 +553,7 @@ checkValidRule rule_name ids lhs' fv_lhs'
 
 		-- Check that LHS vars are all bound
 	; let bad_vars = [var | var <- ids, not (var `elemNameSet` fv_lhs')]
-	; mappM (addErr . badRuleVar rule_name) bad_vars }
+	; mapM_ (addErr . badRuleVar rule_name) bad_vars }
 
 validRuleLhs :: [Name] -> LHsExpr Name -> Maybe (HsExpr Name)
 -- Nothing => OK