git.iko.soy/stackage
on master help sign in
remove-old-stack-work-libs.hs: sort directory list for grouping
4e43341Jens Petersen
etc/diskspace/remove-old-stack-work-libs.hs+1−1
compare with master
unifiedsplit
@@ -10,7 +10,7 @@ import Data.List
10import System.Directory
10import System.Directory
11
11
12main = do
12main = do
13− files <- listDirectory "."
13+ files <- sort <$> listDirectory "."
14 (libdirs,dynlibs) <- partitionM doesDirectoryExist files
14 (libdirs,dynlibs) <- partitionM doesDirectoryExist files
15 let pkglibdirs = groupBy samePkgLibDir libdirs
15 let pkglibdirs = groupBy samePkgLibDir libdirs
16 pkgdynlibs = groupBy samePkgDynLib dynlibs
16 pkgdynlibs = groupBy samePkgDynLib dynlibs