From d4d14ab8143771268881856ff9633d758fb97b6d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 22 Nov 2013 15:10:56 -0400 Subject: fix inverted priority --- Assistant/Threads/Upgrader.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Assistant') 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 -- cgit v1.2.3