mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-11 23:08:30 +01:00
remove-old-stack-work-libs.hs: sort directory list for grouping
This commit is contained in:
parent
d833c0ba59
commit
4e43341b34
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user