mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Build/DistributionUpdate.hs
View file

@ -220,13 +220,12 @@ virusFree f
buildrpms :: FilePath -> [(FilePath, Version)] -> Annex ()
buildrpms topdir l = do
liftIO $ do
createDirectoryIfMissing True rpmrepo
oldrpms <- filter (".rpm" `isSuffixOf`)
<$> getDirectoryContents rpmrepo
mapM_ nukeFile oldrpms
liftIO $ createDirectoryIfMissing True rpmrepo
oldrpms <- map (rpmrepo </>) . filter (".rpm" `isSuffixOf`)
<$> getDirectoryContents rpmrepo
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
[ Param rpmarch
, File tarball