remove-old-stack-work-libs.hs: sort directory list for grouping

This commit is contained in:
Jens Petersen 2020-05-18 21:17:16 +08:00
parent d833c0ba59
commit 4e43341b34

View File

@ -10,7 +10,7 @@ import Data.List
import System.Directory
main = do
files <- listDirectory "."
files <- sort <$> listDirectory "."
(libdirs,dynlibs) <- partitionM doesDirectoryExist files
let pkglibdirs = groupBy samePkgLibDir libdirs
pkgdynlibs = groupBy samePkgDynLib dynlibs