aboutsummaryrefslogtreecommitdiff
path: root/Build/DistributionUpdate.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-06-18 16:24:46 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-06-18 16:24:46 -0400
commit8dcefe87895ad392196736a1624d4433445c6996 (patch)
tree3c99f95eece499356b357909177dcf449c9af295 /Build/DistributionUpdate.hs
parentfd51699d97e67ee27e866686855b26ec3cbd1498 (diff)
fix build-version url
Diffstat (limited to 'Build/DistributionUpdate.hs')
-rw-r--r--Build/DistributionUpdate.hs4
1 files changed, 2 insertions, 2 deletions
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 == '-'