mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

silence curl

Browse source
This commit is contained in:
Joey Hess 2014-06-18 16:17:57 -04:00
parent 90933360de
commit 4797db5c8f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/DistributionUpdate.hs
View file

@ -86,7 +86,7 @@ getbuild repodir (url, f) = do
where where
getbv = do getbv = do
bv <- catchDefaultIO "" $ bv <- catchDefaultIO "" $
readProcess "curl" [takeDirectory url ++ "build-version"] readProcess "curl" ["--silent", takeDirectory url ++ "build-version"]
return $ if null bv || any (not . versionchar) bv then Nothing else Just bv return $ if null bv || any (not . versionchar) bv then Nothing else Just bv
versionchar c = isAlphaNum c || c == '.' || c == '-' versionchar c = isAlphaNum c || c == '.' || c == '-'