From 635c8546d4693e317ceb50bedba9430c820aa4c9 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Tue, 7 Nov 2023 11:24:17 +1100 Subject: [PATCH] testing --- Cabal/src/Distribution/Simple/Program/Ld.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Cabal/src/Distribution/Simple/Program/Ld.hs b/Cabal/src/Distribution/Simple/Program/Ld.hs index c7521c0f198..443ca6a9fd7 100644 --- 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]