fix build-version url
This commit is contained in:
parent
9032c1fdcf
commit
77e490108b
1 changed files with 2 additions and 2 deletions
|
@ -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 == '-'
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue