From fcbf35d3ade983f5290e08cd7a81257b6645801e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 3 May 2008 20:33:54 +0000 Subject: [PATCH] Change a mappM to mapM_ --- compiler/rename/RnSource.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4