haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-23 20:51:57 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

remove-old-stack-work-libs.hs: ignore internal libs for now

Browse Source
This commit is contained in:
Jens Petersen 2020-05-19 12:47:25 +08:00
parent 6383d6e6fd
commit 3ced32f343
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,8 +14,10 @@ import System.FilePath
main = do main = do
files <- sort <$> listDirectory "." files <- sort <$> listDirectory "."
let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
pkglibdirs = groupBy samePkgLibDir libdirs pkglibdirs = groupBy samePkgLibDir $
pkgdynlibs = groupBy samePkgDynLib dynlibs filter (not . ("-internal" `isSuffixOf`)) libdirs
pkgdynlibs = groupBy samePkgDynLib $
filter (not . ("-internal-" `isInfixOf`)) dynlibs
mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
mapM_ (removeOlder removeFile) pkgdynlibs mapM_ (removeOlder removeFile) pkgdynlibs
where where