Return the version during 'ghcup compile ghc -g <commit>'

Fixes #181
2021-07-20 11:42:36 +02:00 · 2021-07-20 11:42:36 +02:00 · 7a2570019a
commit 7a2570019a
parent c5b4e82b48
1 changed files with 3 additions and 2 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@ -1930,14 +1930,15 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                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)