From 78d68e381a7259eb0c6b68c3bc87bf87b8ceea9a Mon Sep 17 00:00:00 2001
From: Luis Morillo <luis_cnnvd@hotmail.com>
Date: Fri, 14 Apr 2023 17:31:28 +0200
Subject: [PATCH] apply logging only on GHC uninstalation

---
 app/ghcup/BrickMain.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/ghcup/BrickMain.hs b/app/ghcup/BrickMain.hs
index b23350ed..a61e37d1 100644
--- a/app/ghcup/BrickMain.hs
+++ b/app/ghcup/BrickMain.hs
@@ -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 ()