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

fix inverted priority

Browse source
This commit is contained in:
Joey Hess 2013-11-22 15:10:56 -04:00
parent d0e063e618
commit 0c68346f46
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/Threads/Upgrader.hs
View file

@ -60,9 +60,10 @@ checkUpgrade urlrenderer = do
let avail = Git.Version.normalize $ distributionVersion d let avail = Git.Version.normalize $ distributionVersion d
let old = Git.Version.normalize <$> distributionUrgentUpgrade d let old = Git.Version.normalize <$> distributionUrgentUpgrade d
if Just installed <= old if Just installed <= old
then canUpgrade Low urlrenderer d then canUpgrade High urlrenderer d
else when (installed < avail) $ else if installed < avail
canUpgrade High urlrenderer d then canUpgrade Low urlrenderer d
else debug [ "No new version found." ]
canUpgrade :: AlertPriority -> UrlRenderer -> GitAnnexDistribution -> Assistant () canUpgrade :: AlertPriority -> UrlRenderer -> GitAnnexDistribution -> Assistant ()
canUpgrade urgency urlrenderer d = do canUpgrade urgency urlrenderer d = do