From 84d7747c1b56d8d3680e11fa80a4d103ec1c835c Mon Sep 17 00:00:00 2001 From: eagletmt Date: Tue, 14 Feb 2012 11:54:48 +0900 Subject: [PATCH] simplify a bit --- Info.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Info.hs b/Info.hs index 4bcae20..677d49e 100644 --- a/Info.hs +++ b/Info.hs @@ -82,9 +82,7 @@ findExpr tcm line col = in listifyStaged TypeChecker f src where f :: LHsExpr Id -> Bool - f (L spn _) - | isGoodSrcSpan spn = spn `spans` (line, col) - | otherwise = False + f (L spn _) = isGoodSrcSpan spn && spn `spans` (line, col) listifyStaged :: Typeable r => Stage -> (r -> Bool) -> GenericQ [r] listifyStaged s p = everythingStaged s (++) [] ([] `mkQ` (\x -> if p x then [x] else []))