mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

only delete old rpms for arches that have a new rpm

Browse source
This commit is contained in:
Joey Hess 2019-12-18 14:32:13 -04:00
parent 73c9a6e7d7
commit 6b2e471330
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Build/DistributionUpdate.hs
View file

@ -220,13 +220,12 @@ virusFree f
buildrpms :: FilePath -> [(FilePath, Version)] -> Annex () buildrpms :: FilePath -> [(FilePath, Version)] -> Annex ()
buildrpms topdir l = do buildrpms topdir l = do
liftIO $ do liftIO $ createDirectoryIfMissing True rpmrepo
createDirectoryIfMissing True rpmrepo oldrpms <- map (rpmrepo </>) . filter (".rpm" `isSuffixOf`)
oldrpms <- filter (".rpm" `isSuffixOf`)
<$> getDirectoryContents rpmrepo <$> getDirectoryContents rpmrepo
mapM_ nukeFile oldrpms
forM_ tarrpmarches $ \(tararch, rpmarch) -> forM_ tarrpmarches $ \(tararch, rpmarch) ->
forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> do
mapM_ nukeFile (filter ((tararch ++ ".rpm") `isSuffixOf`) oldrpms)
void $ liftIO $ boolSystem script void $ liftIO $ boolSystem script
[ Param rpmarch [ Param rpmarch
, File tarball , File tarball