From fcdd6d0c537c9cc3e699dfdd603a51bc4ddb429d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Mar 2020 15:13:16 -0400 Subject: [PATCH] sync with archive.org always --- Build/DistributionUpdate.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index 8260881d12..178c23919f 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -66,10 +66,12 @@ main = do changeWorkingDirectory repodir updated <- catMaybes <$> mapM (getbuild repodir) autobuilds state <- Annex.new =<< Git.Construct.fromPath "." - Annex.eval state $ do + ood <- Annex.eval state $ do buildrpms topdir updated makeinfos updated version 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 -- version. @@ -167,8 +169,7 @@ makeinfos updated version = do ds <- liftIO $ forM infos (readish <$$> readFile) let dis = zip infos ds let ood = filter outofdate dis - unless (null ood) $ - error $ "Some info files are out of date: " ++ show (map fst ood) + return ood where outofdate (_, md) = case md of Nothing -> True