Fix boolean check in upgradeGHCup :)

2020-04-15 15:37:29 +02:00
parent ea4f9ceab1
commit 404038edcb
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -692,7 +692,7 @@ upgradeGHCup :: ( MonadMask m
 upgradeGHCup dls mtarget force = do
  lift $ $(logInfo) [i|Upgrading GHCup...|]
  let latestVer = fromJust $ getLatest dls GHCup
-  when (not force && (latestVer < pvpToVersion ghcUpVer)) $ throwE NoUpdate
+  when (not force && (latestVer <= pvpToVersion ghcUpVer)) $ throwE NoUpdate
  pfreq <- liftE platformRequest
  dli   <- lE $ getDownloadInfo GHCup latestVer pfreq dls
  tmp   <- lift withGHCupTmpDir