[cabal-7825] Add $CABAL env variable for external commands

This is a follow-up of #9063
haskell · Nov 3, 2023 · 87f2ddd · 87f2ddd
1 parent 1157461
commit 87f2ddd
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Cabal/src/Distribution/Simple/Command.hs b/Cabal/src/Distribution/Simple/Command.hs
@@ -94,6 +94,7 @@ import Distribution.ReadE
 import Distribution.Simple.Utils
 import System.Directory (findExecutable)
 import System.Process (callProcess)
+import System.Environment (getExecutablePath, setEnv)
 
 data CommandUI flags = CommandUI
   { commandName :: String
@@ -651,7 +652,10 @@ commandsRun globalCommand commands args =
         _ -> do
           mCommand <- findExecutable $ "cabal-" <> name
           case mCommand of
-            Just exec -> callExternal flags exec cmdArgs
+            Just exec -> do
+                execPath <- getExecutablePath
+                void $ setEnv "CABAL" execPath
+                callExternal flags exec cmdArgs
             Nothing -> pure $ CommandReadyToGo (flags, badCommand name)
       [] -> pure $ CommandReadyToGo (flags, noCommand)
       where