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

sync with archive.org always

Browse source
This commit is contained in:
Joey Hess 2020-03-30 15:13:16 -04:00
parent 9717915635
commit fcdd6d0c53
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Build/DistributionUpdate.hs
View file

@ -66,10 +66,12 @@ main = do
changeWorkingDirectory repodir changeWorkingDirectory repodir
updated <- catMaybes <$> mapM (getbuild repodir) autobuilds updated <- catMaybes <$> mapM (getbuild repodir) autobuilds
state <- Annex.new =<< Git.Construct.fromPath "." state <- Annex.new =<< Git.Construct.fromPath "."
Annex.eval state $ do ood <- Annex.eval state $ do
buildrpms topdir updated buildrpms topdir updated
makeinfos updated version makeinfos updated version
syncToArchiveOrg syncToArchiveOrg
unless (null ood) $
error $ "Some info files are out of date: " ++ show (map fst ood)
-- Download a build from the autobuilder, virus check it, and return its -- Download a build from the autobuilder, virus check it, and return its
-- version. -- version.
@ -167,8 +169,7 @@ makeinfos updated version = do
ds <- liftIO $ forM infos (readish <$$> readFile) ds <- liftIO $ forM infos (readish <$$> readFile)
let dis = zip infos ds let dis = zip infos ds
let ood = filter outofdate dis let ood = filter outofdate dis
unless (null ood) $ return ood
error $ "Some info files are out of date: " ++ show (map fst ood)
where where
outofdate (_, md) = case md of outofdate (_, md) = case md of
Nothing -> True Nothing -> True