diff options
author | 2013-11-22 15:10:56 -0400 | |
---|---|---|
committer | 2013-11-22 15:10:56 -0400 | |
commit | d4d14ab8143771268881856ff9633d758fb97b6d (patch) | |
tree | 481c06ea6a9b3d3963fd6b719660196fcd46f09e | |
parent | 70ba92819ca4e1e7feb24212d7f034596de5f7d1 (diff) |
fix inverted priority
-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 |