diff --git a/testsuite/tests/driver/MergeObjsMode/A.hs b/testsuite/tests/driver/MergeObjsMode/A.hs index af7ebc8eb944c6edf1d29d14ed656f7b67f350c9..ad16a88534784994b2786595edfd4a0151c8cefc 100644 --- a/testsuite/tests/driver/MergeObjsMode/A.hs +++ b/testsuite/tests/driver/MergeObjsMode/A.hs @@ -1,5 +1,7 @@ module A where +-- Don't inline otherwise A.o may not be needed by Main.o +{-# NOINLINE a #-} a :: Int a = 42 diff --git a/testsuite/tests/driver/MergeObjsMode/B.hs b/testsuite/tests/driver/MergeObjsMode/B.hs index 0cb45d3f541125bc11c4ef14f5c13a2010d5aa7f..cffbdf42d83c6e9f2950391f7657afc4fad4cfde 100644 --- a/testsuite/tests/driver/MergeObjsMode/B.hs +++ b/testsuite/tests/driver/MergeObjsMode/B.hs @@ -1,4 +1,6 @@ module B where +-- Don't inline otherwise B.o may not be needed by Main.o +{-# NOINLINE b #-} b :: String b = "hello world" diff --git a/testsuite/tests/driver/MergeObjsMode/all.T b/testsuite/tests/driver/MergeObjsMode/all.T index 89025a588adaad41cca08c52a5aa083027840c27..7d17414a8388c13025d4c44692e647ac30db2dc7 100644 --- a/testsuite/tests/driver/MergeObjsMode/all.T +++ b/testsuite/tests/driver/MergeObjsMode/all.T @@ -1,5 +1,6 @@ test('MergeObjsMode', [ extra_files(['A.hs', 'B.hs', 'Main.hs']) + , js_skip # Object merging isn't supported by the JS backend ], makefile_test, [])