Warn on all tools when shadowed

This commit is contained in:
2022-05-23 16:48:29 +02:00
parent b8b3a16589
commit 9375255452
8 changed files with 34 additions and 19 deletions

View File

@@ -50,6 +50,7 @@ import System.FilePath
import System.IO.Error
import qualified Data.Text as T
import Text.PrettyPrint.HughesPJClass (prettyShow)
@@ -229,6 +230,10 @@ setStack ver = do
lift $ createLink targetFile stackbin
liftIO (isShadowed stackbin) >>= \case
Nothing -> pure ()
Just pa -> lift $ logWarn $ T.pack $ prettyShow (ToolShadowed Cabal pa stackbin ver)
pure ()