Fix #6484 stack path avoids EnvConfig where possible

Author: mpilgrem

ChangeLog.md

@@ -10,6 +10,9 @@ Major changes:
 
 Behavior changes:
 
+* `stack path --global-config`, `--programs`, and `--local-bin` no longer set
+  up Stack's environment.
+
 Other enhancements:
 
 Bug fixes:

doc/path_command.md

@@ -3,9 +3,9 @@
 # The `stack path` command
 
 ~~~text
-stack path [--stack-root] [--global-config] [--project-root] [--config-location]
-           [--bin-path] [--programs] [--compiler-exe] [--compiler-bin]
-           [--compiler-tools-bin] [--local-bin] [--extra-include-dirs]
+stack path [--stack-root] [--global-config] [--programs] [--local-bin]
+           [--project-root] [--config-location] [--bin-path] [--compiler-exe]
+           [--compiler-bin] [--compiler-tools-bin] [--extra-include-dirs]
            [--extra-library-dirs] [--snapshot-pkg-db] [--local-pkg-db]
            [--global-pkg-db] [--ghc-package-path] [--snapshot-install-root]
            [--local-install-root] [--snapshot-doc-root] [--local-doc-root]

src/Stack/Options/PathParser.hs

@@ -7,15 +7,22 @@ module Stack.Options.PathParser
 
 import qualified Data.Text as T
 import           Options.Applicative ( Parser, flag, help, long )
-import           Stack.Path ( paths )
+import           Stack.Path
+                   ( pathsFromConfig, pathsFromEnvConfig, pathsFromRunner )
 import           Stack.Prelude
 
 -- | Parse command line arguments for Stack's @path@ command.
 pathParser :: Parser [Text]
 pathParser = mapMaybeA
-  ( \(desc, name, _) -> flag Nothing (Just name)
+  ( \(desc, name) -> flag Nothing (Just name)
       (  long (T.unpack name)
       <> help desc
       )
   )
   paths
+ where
+  toDescName (desc, name, _) = (desc, name)
+  paths =
+       pathsFromRunner
+    :  map toDescName pathsFromConfig
+    <> map toDescName pathsFromEnvConfig