diff --git a/Cabal/src/Distribution/Simple/Program/Builtin.hs b/Cabal/src/Distribution/Simple/Program/Builtin.hs
index 1f3db0740f3e67d3350c8b0d0c2b1d2a1974077b..9e233b35b2ecc86d8b53cccb418fbd25c15dfa75 100644
--- 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
index 0589838f617ca8555d20e8ab08ebfaca08363163..7fef84c686c6d710987cefd0f76e17111b844632 100644
--- 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