From 8dcefe87895ad392196736a1624d4433445c6996 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 18 Jun 2014 16:24:46 -0400 Subject: fix build-version url --- Build/DistributionUpdate.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Build') diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index 25123edb5..98a2417c9 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -84,9 +84,9 @@ getbuild repodir (url, f) = do , oops $ "failed to download " ++ url ) where + bvurl = takeDirectory url ++ "/build-version" getbv = do - bv <- catchDefaultIO "" $ - readProcess "curl" ["--silent", takeDirectory url ++ "build-version"] + bv <- catchDefaultIO "" $ readProcess "curl" ["--silent", bvurl] return $ if null bv || any (not . versionchar) bv then Nothing else Just bv versionchar c = isAlphaNum c || c == '.' || c == '-' -- cgit v1.2.3