apply logging only on GHC uninstalation

This commit is contained in:
Luis Morillo 2023-04-14 17:31:28 +02:00
parent 17ffc459db
commit 78d68e381a
1 changed files with 1 additions and 1 deletions

View File

@ -563,7 +563,7 @@ del' _ (_, ListResult {..}) = do
)
>>= \case
VRight vi -> do
logGHCPostRm (mkTVer lVer)
when (lTool == GHC) $ logGHCPostRm (mkTVer lVer)
forM_ (_viPostRemove =<< vi) $ \msg ->
logInfo msg
pure $ Right ()