From 3341ad197f872581edbf45b18c13c90e2286b2a2 Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:19:38 +0000
Subject: [PATCH] Hlint: Error: Use .

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

diff --git a/tools/listbydeps.hs b/tools/listbydeps.hs
index 1ee3bdfd1..0fb5c9e7d 100644
--- a/tools/listbydeps.hs
+++ b/tools/listbydeps.hs
@@ -56,5 +56,5 @@ main = do [ base, pkgFile ] <- getArgs
           mods              <- mapM (allDeps base) pkgs
           let deps           = zip pkgs mods
           let deps'          = sortBy (comparing fst) deps
-          mapM_ print $ map fst $ sortBy (comparing $ length . snd) deps'
+          mapM_ (print . fst) (sortBy (comparing $ length . snd) deps')