fix build-version url

This commit is contained in:
Joey Hess 2014-06-18 16:24:46 -04:00
parent 9032c1fdcf
commit 77e490108b
Failed to extract signature

View file

@ -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 == '-'