From 404038edcb2022c801aa490194a053060ba9e7b8 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Wed, 15 Apr 2020 15:37:29 +0200
Subject: [PATCH] Fix boolean check in upgradeGHCup :)

---
 lib/GHCup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index f33ca53..961471d 100644
--- 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