testing

haskell · Nov 7, 2023 · 635c854 · 635c854
1 parent 2813161
commit 635c854
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Cabal/src/Distribution/Simple/Program/Ld.hs b/Cabal/src/Distribution/Simple/Program/Ld.hs
@@ -75,7 +75,9 @@ combineObjectFiles verbosity lbi ld target files = do
   case Map.lookup "Supports relocatable output" $ programProperties ld of
     Just "YES" -> pure ()
     Just "NO" ->
-      dieWithException verbosity $ CombineObjectFilesRelocatableUnsupported
+      if False
+        then dieWithException verbosity $ CombineObjectFilesRelocatableUnsupported
+        else putStrLn "dieWithException verbosity $ CombineObjectFilesRelocatableUnsupported"
     _other -> pure () -- NOTE: This may still fail if the compiler does not support -r.
   let simpleArgs = ["-r", "-o", target]