diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index 3c37ec1..30459f1 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -1930,14 +1930,15 @@ Report bugs at |] let vi = getVersionInfo (_tvVersion targetVer) GHC dls when setCompile $ void $ liftE $ setGHC targetVer SetGHCOnly - pure vi + pure (vi, targetVer) ) >>= \case - VRight vi -> do + VRight (vi, tv) -> do runLogger $ $(logInfo) "GHC successfully compiled and installed" forM_ (_viPostInstall =<< vi) $ \msg -> runLogger $ $(logInfo) msg + putStr (T.unpack $ tVerToText tv) pure ExitSuccess VLeft (V (AlreadyInstalled _ v)) -> do runLogger $ $(logWarn)