diff options
author | Richard Hartmann <richih@debian.org> | 2014-02-25 12:38:25 +0100 |
---|---|---|
committer | Richard Hartmann <richih@debian.org> | 2014-02-25 12:38:25 +0100 |
commit | d1147087b30b67a139e51235e977be27dc69765d (patch) | |
tree | 81898d4b8fd8ec569ddcc6150406866682fdb1ff /Assistant | |
parent | 5fea20f32fbeba57b3be8f57b2a6f11da05641db (diff) | |
parent | 6cc6cf01d1644df543d3e264d3f9ddb44e64424b (diff) |
Merge branch 'master' of git://git-annex.branchable.com
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Threads/Upgrader.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Upgrader.hs b/Assistant/Threads/Upgrader.hs index f0c47e844..60aeec70b 100644 --- a/Assistant/Threads/Upgrader.hs +++ b/Assistant/Threads/Upgrader.hs @@ -89,10 +89,10 @@ canUpgrade urgency urlrenderer d = ifM autoUpgradeEnabled getDistributionInfo :: Assistant (Maybe GitAnnexDistribution) getDistributionInfo = do - ua <- liftAnnex Url.getUserAgent + uo <- liftAnnex Url.getUrlOptions liftIO $ withTmpFile "git-annex.tmp" $ \tmpfile h -> do hClose h - ifM (Url.downloadQuiet distributionInfoUrl [] [] tmpfile ua) + ifM (Url.downloadQuiet distributionInfoUrl tmpfile uo) ( readish <$> readFileStrict tmpfile , return Nothing ) |