From d01159bb27d84898a48ef2783d3cb59d4ce0e30e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Feb 2008 15:38:35 +0000 Subject: [PATCH] \e -> f e ===> f --- compiler/parser/RdrHsSyn.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 2fb494e..1a6b3fe 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -712,12 +712,12 @@ checkAPat loc e = case e of _ -> patFail loc HsPar e -> checkLPat e >>= (return . ParPat) - ExplicitList _ es -> do ps <- mapM (\e -> checkLPat e) es + ExplicitList _ es -> do ps <- mapM checkLPat es return (ListPat ps placeHolderType) - ExplicitPArr _ es -> do ps <- mapM (\e -> checkLPat e) es + ExplicitPArr _ es -> do ps <- mapM checkLPat es return (PArrPat ps placeHolderType) - ExplicitTuple es b -> do ps <- mapM (\e -> checkLPat e) es + ExplicitTuple es b -> do ps <- mapM checkLPat es return (TuplePat ps b placeHolderType) RecordCon c _ (HsRecFields fs dd) -- 1.7.10.4