Fix listTools to always show currently installed GHCup

2021-07-27 22:13:22 +02:00
parent 85003900d7
commit 422c6ed1bb
3 changed files with 34 additions and 12 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1061,6 +1061,7 @@ tagCompleter tool add = listIOCompleter $ do
    VRight ghcupInfo -> do
      let allTags = filter (\t -> t /= Old)
            $ join
+            $ fmap _viTags
            $ M.elems
            $ availableToolVersions (_ghcupDownloads ghcupInfo) tool
      pure $ nub $ (add ++) $ fmap tagToString allTags