mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 07:18:31 +01:00
50 lines
1.6 KiB
Haskell
Executable File
50 lines
1.6 KiB
Haskell
Executable File
#!/usr/bin/env stack
|
|
-- stack --resolver lts-14 script
|
|
|
|
-- Utility to remove old libs installed under .stack-work/ to save diskspace
|
|
|
|
-- Should be run in:
|
|
-- work/*/unpack-dir/.stack-work/install/x86_64-linux/*/*/lib/x86_64-linux-ghc-*
|
|
|
|
import Data.List
|
|
import System.Directory
|
|
import System.FilePath
|
|
|
|
main = do
|
|
files <- sort <$> listDirectory "."
|
|
let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
|
|
pkglibdirs = groupBy samePkgLibDir libdirs
|
|
pkgdynlibs = groupBy samePkgDynLib dynlibs
|
|
mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
|
|
mapM_ (removeOlder removeFile) pkgdynlibs
|
|
where
|
|
samePkgLibDir l1 l2 = pkgDirName l1 == pkgDirName l2
|
|
where
|
|
pkgDirName p =
|
|
if countDashes p < 2
|
|
then error $ p ++ " not in name-version-hash format"
|
|
else (removeDashSegment . removeDashSegment) p
|
|
|
|
countDashes = length . filter (== '-')
|
|
|
|
removeDashSegment = init . dropWhileEnd (/= '-')
|
|
|
|
samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2
|
|
where
|
|
pkgDynName p =
|
|
if countDashes p < 3
|
|
then error $ p ++ " not in libHSname-version-hash-ghc*.so format"
|
|
else (removeDashSegment . removeDashSegment . removeDashSegment) p
|
|
|
|
removeOlder remover files = do
|
|
-- keep 2 latest builds
|
|
oldfiles <- drop 2 . reverse <$> sortByAge files
|
|
mapM_ remover oldfiles
|
|
|
|
sortByAge files = do
|
|
timestamps <- mapM getModificationTime files
|
|
let fileTimes = zip files timestamps
|
|
return $ map fst $ sortBy compareSnd fileTimes
|
|
|
|
compareSnd (_,t1) (_,t2) = compare t1 t2
|