diff options
| -rw-r--r-- | Build/DistributionUpdate.hs | 4 |
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 == '-' |