Allow for dynamic post-install, post-remove and pre-compile msgs

2021-02-22 21:55:05 +01:00
parent 38b6c918f9
commit a9b0c0fbc9
7 changed files with 19998 additions and 8159 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -1308,7 +1308,7 @@ upgradeGHCup :: ( MonadMask m
 upgradeGHCup dls mtarget force pfreq = do
  AppState {dirs = Dirs {..}} <- lift ask
  lift $ $(logInfo) [i|Upgrading GHCup...|]
-  let latestVer = fromJust $ getLatest dls GHCup
+  let latestVer = fromJust $ fst <$> getLatest dls GHCup
  when (not force && (latestVer <= pvpToVersion ghcUpVer)) $ throwE NoUpdate
  dli   <- lE $ getDownloadInfo GHCup latestVer pfreq dls
  tmp   <- lift withGHCupTmpDir