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

etc/diskspace: fixup pkg platform build dir paths

Browse Source 
[skip ci]
This commit is contained in:
Jens Petersen 2023-06-18 01:23:04 +02:00
parent 3bd98e48e8
commit bf7ce0e101
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,13 +92,15 @@ cleanStackWorkPackages =
platforms <- listDirectory "." -- "x86_64-linux-tinfo6*" platforms <- listDirectory "." -- "x86_64-linux-tinfo6*"
forM platforms $ \pl -> forM platforms $ \pl ->
withCurrentDirectory pl $ withCurrentDirectory pl $
withOneDirectory_ -- "Cabal-*" withOneDirectory -- "Cabal-*"
$ withCurrentDirectory "build" $ do $ \cbl ->
withCurrentDirectory "build" $ do
ls <- sort <$> listDirectory "." ls <- sort <$> listDirectory "."
files <- filterM doesFileExist ls files <- filterM doesFileExist ls
let (dynlibs,others) = partition (".so" `isExtensionOf`) files let (dynlibs,others) = partition (".so" `isExtensionOf`) files
statlibs = filter (".a" `isExtensionOf`) others statlibs = filter (".a" `isExtensionOf`) others
return (dynlibs,statlibs) let dir = pl </> cbl </> "build"
return (map (dir </>) dynlibs, map (dir </>) statlibs)
removeOlder removeFile $ concatMap fst libs removeOlder removeFile $ concatMap fst libs
removeOlder removeFile $ concatMap snd libs removeOlder removeFile $ concatMap snd libs
@ -111,7 +113,7 @@ withOneDirectory_ act = do
cwd <- getCurrentDirectory cwd <- getCurrentDirectory
error $ "more than one directory found in " ++ cwd ++ ": " ++ unwords ls error $ "more than one directory found in " ++ cwd ++ ": " ++ unwords ls
withOneDirectory :: (FilePath -> IO ()) -> IO () withOneDirectory :: (FilePath -> IO a) -> IO a
withOneDirectory act = do withOneDirectory act = do
ls <- listDirectory "." ls <- listDirectory "."
case ls of case ls of