haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-29 15:40:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jens Petersen 2020-05-18 21:17:16 +08:00
parent d833c0ba59
commit 4e43341b34
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/diskspace/remove-old-stack-work-libs.hs
View File

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