silence curl

This commit is contained in:
Joey Hess 2014-06-18 16:17:57 -04:00
parent 90933360de
commit 4797db5c8f

View file

@ -86,7 +86,7 @@ getbuild repodir (url, f) = do
where
getbv = do
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
versionchar c = isAlphaNum c || c == '.' || c == '-'