debug in progress

erikd · Sep 24, 2023 · 0cead37 · 0cead37
1 parent 745c720
commit 0cead37
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/Cabal/src/Distribution/Simple/Program/Builtin.hs b/Cabal/src/Distribution/Simple/Program/Builtin.hs
@@ -362,7 +362,8 @@ ldProgram =
  -- choice for windows linking does not support this feature. However
  -- if using binutils ld or another linker that supports --relocatable,
  -- we should still be good to generate pre-linked objects.
- ldHelpOutput <-
+ ldHelpOutput <- do
+ _ <- error "Distribution.Simple.Program.Builtin.ldProgram"
  getProgramInvocationOutput
  verbosity
  (programInvocation ldProg ["--help"])

diff --git a/Cabal/src/Distribution/Simple/Setup/Common.hs b/Cabal/src/Distribution/Simple/Setup/Common.hs
@@ -327,7 +327,9 @@ configureCCompiler
 configureCCompiler verbosity progdb = configureProg verbosity progdb gccProgram
 
 configureLinker :: Verbosity -> ProgramDb -> IO (FilePath, [String])
-configureLinker verbosity progdb = configureProg verbosity progdb ldProgram
+configureLinker verbosity progdb = do
+ _ <- error $ show ldProgram
+ configureProg verbosity progdb ldProgram
 
 configureProg
  :: Verbosity