From 4489756e4e7a72f0300d926cff61c4f877d8da75 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 May 2020 19:05:35 -0400 Subject: [PATCH] fix build --- Build/DistributionUpdate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index accec3236e..b221518879 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -115,7 +115,7 @@ getbuild repodir (url, f) = do return $ if null bv || any (not . versionchar) bv then Nothing else Just bv versionchar c = isAlphaNum c || c == '.' || c == '-' -makeinfos :: [(FilePath, Version)] -> Version -> Annex () +makeinfos :: [(FilePath, Version)] -> Version -> Annex [([Char], Maybe GitAnnexDistribution)] makeinfos updated version = do mapM_ (\f -> inRepo $ runBool [Param "annex", Param "add", File f]) (map fst updated) void $ inRepo $ runBool