diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-22 15:10:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-22 15:10:56 -0400 |
| commit | d4d14ab8143771268881856ff9633d758fb97b6d (patch) | |
| tree | 481c06ea6a9b3d3963fd6b719660196fcd46f09e /Assistant/Threads/Upgrader.hs | |
| parent | 70ba92819ca4e1e7feb24212d7f034596de5f7d1 (diff) | |
fix inverted priority
Diffstat (limited to 'Assistant/Threads/Upgrader.hs')
| -rw-r--r-- | Assistant/Threads/Upgrader.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/Threads/Upgrader.hs b/Assistant/Threads/Upgrader.hs index 8914a8bee..26a165630 100644 --- a/Assistant/Threads/Upgrader.hs +++ b/Assistant/Threads/Upgrader.hs @@ -60,9 +60,10 @@ checkUpgrade urlrenderer = do let avail = Git.Version.normalize $ distributionVersion d let old = Git.Version.normalize <$> distributionUrgentUpgrade d if Just installed <= old - then canUpgrade Low urlrenderer d - else when (installed < avail) $ - canUpgrade High urlrenderer d + then canUpgrade High urlrenderer d + else if installed < avail + then canUpgrade Low urlrenderer d + else debug [ "No new version found." ] canUpgrade :: AlertPriority -> UrlRenderer -> GitAnnexDistribution -> Assistant () canUpgrade urgency urlrenderer d = do |