remove-old-stack-work-libs.hs: sort directory list for grouping
commit4e43341b34fabfd2616251271346e7bd35c5afad
authorJens Petersen <juhpetersen@gmail.com>
dateMon 18 May 2020, 21:17 (6 years ago)
parentd833c0b
etc/diskspace/remove-old-stack-work-libs.hs+1−1
@@ -10,7 +10,7 @@ import Data.List
1010import System.Directory
1111
1212main = do
13− files <- listDirectory "."
13+ files <- sort <$> listDirectory "."
1414 (libdirs,dynlibs) <- partitionM doesDirectoryExist files
1515 let pkglibdirs = groupBy samePkgLibDir libdirs
1616 pkgdynlibs = groupBy samePkgDynLib dynlibs