From d0baf650f259511a1ff2004258c98d43e1c5912a Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:35:31 +0000
Subject: [PATCH] Hlint: Error: Use mapMaybe

---
 tools/listbydeps.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/listbydeps.hs b/tools/listbydeps.hs
index c913a6bb2..1ee3bdfd1 100644
--- a/tools/listbydeps.hs
+++ b/tools/listbydeps.hs
@@ -18,7 +18,7 @@ findDeps base pkg = do
         if not ex then return [] else do
             src <- readFile hi
             let imps = filter isImport (lines src)
-            return $ catMaybes $ map getTargetModule imps
+            return $ mapMaybe getTargetModule imps
 
     where dotToSlash '.' = '/'
           dotToSlash x   = x