Hlint: Error: Use .

2009-09-22 12:19:38 +00:00 · 2009-09-22 12:19:38 +00:00 · 3341ad197f
commit 3341ad197f
parent cca81d199f
1 changed files with 1 additions and 1 deletions
--- 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')