git.iko.soy/stackage
on master help sign in
remove-old-stack-work-libs.hs: ignore internal libs for now
3ced32fJens Petersen
etc/diskspace/remove-old-stack-work-libs.hs+4−2
compare with master
unifiedsplit
@@ -14,8 +14,10 @@ import System.FilePath
14main = do
14main = do
15 files <- sort <$> listDirectory "."
15 files <- sort <$> listDirectory "."
16 let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
16 let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
17− pkglibdirs = groupBy samePkgLibDir libdirs
17+ pkglibdirs = groupBy samePkgLibDir $
18+ filter (not . ("-internal" `isSuffixOf`)) libdirs
18− pkgdynlibs = groupBy samePkgDynLib dynlibs
19+ pkgdynlibs = groupBy samePkgDynLib $
20+ filter (not . ("-internal-" `isInfixOf`)) dynlibs
19 mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
21 mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
20 mapM_ (removeOlder removeFile) pkgdynlibs
22 mapM_ (removeOlder removeFile) pkgdynlibs
21 where
23 where