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')