Skip to content
Snippets Groups Projects
Verified Commit 404038ed authored by Julian Ospald's avatar Julian Ospald :tea:
Browse files

Fix boolean check in upgradeGHCup :)

parent ea4f9cea
No related branches found
No related tags found
No related merge requests found
Pipeline #18065 passed with warnings
Stage: test
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
lib/GHCup.hs
+ 1
− 1
View file @ 404038ed
...@@ -692,7 +692,7 @@ upgradeGHCup :: ( MonadMask m ...@@ -692,7 +692,7 @@ upgradeGHCup :: ( MonadMask m
upgradeGHCup dls mtarget force = do upgradeGHCup dls mtarget force = do
lift $ $(logInfo) [i|Upgrading GHCup...|] lift $ $(logInfo) [i|Upgrading GHCup...|]
let latestVer = fromJust $ getLatest dls 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 pfreq <- liftE platformRequest
dli <- lE $ getDownloadInfo GHCup latestVer pfreq dls dli <- lE $ getDownloadInfo GHCup latestVer pfreq dls
tmp <- lift withGHCupTmpDir tmp <- lift withGHCupTmpDir
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment