[Git][ghc/ghc][wip/js-staging] Replace c_src with req_c
Sylvain Henry (@hsyl20)
gitlab at gitlab.haskell.org
Thu Oct 20 09:58:09 UTC 2022
Sylvain Henry pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
d567ba3c by Sylvain Henry at 2022-10-20T12:01:31+02:00
Replace c_src with req_c
- - - - -
13 changed files:
- testsuite/driver/testlib.py
- testsuite/tests/backpack/should_run/all.T
- testsuite/tests/codeGen/should_run/T20137/all.T
- testsuite/tests/codeGen/should_run/T20735/all.T
- testsuite/tests/codeGen/should_run/all.T
- testsuite/tests/driver/multipleHomeUnits/o-dir/all.T
- testsuite/tests/ffi/should_fail/all.T
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/generics/all.T
- testsuite/tests/package/T20010/all.T
- testsuite/tests/rep-poly/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/rts/linker/T11223/all.T
Changes:
=====================================
testsuite/driver/testlib.py
=====================================
@@ -271,6 +271,13 @@ def req_rts_linker( name, opts ):
# JS backend doesn't provide the RTS linker
js_skip(name, opts)
+def req_c( name, opts ):
+ """
+ Mark a test as requiring C source file support
+ """
+ # JS backend doesn't support C (yet)
+ js_skip(name, opts)
+
def req_th( name, opts ):
"""
Mark a test as requiring TemplateHaskell. In addition to having interpreter
@@ -737,8 +744,7 @@ def literate( name, opts ):
def c_src( name, opts ):
opts.c_src = True
- # JS backend doesn't support C (yet)
- js_skip(name, opts)
+ req_c (name, opts)
def objc_src( name, opts ):
opts.objc_src = True
=====================================
testsuite/tests/backpack/should_run/all.T
=====================================
@@ -1,13 +1,13 @@
-test('bkprun01', c_src, backpack_run, [''])
-test('bkprun02', c_src, backpack_run, [''])
-test('bkprun03', c_src, backpack_run, [''])
-test('bkprun04', c_src, backpack_run, [''])
-test('bkprun05', [exit_code(1), c_src], backpack_run, [''])
-test('bkprun06', c_src, backpack_run, [''])
-test('bkprun07', c_src, backpack_run, [''])
-test('bkprun08', c_src, backpack_run, [''])
-test('bkprun09', c_src, backpack_run, ['-O'])
-test('T13955', c_src, backpack_run, [''])
-test('T15138', c_src, backpack_run, [''])
-test('T15379', c_src, backpack_run,[''])
+test('bkprun01', req_c, backpack_run, [''])
+test('bkprun02', req_c, backpack_run, [''])
+test('bkprun03', req_c, backpack_run, [''])
+test('bkprun04', req_c, backpack_run, [''])
+test('bkprun05', [exit_code(1), req_c], backpack_run, [''])
+test('bkprun06', req_c, backpack_run, [''])
+test('bkprun07', req_c, backpack_run, [''])
+test('bkprun08', req_c, backpack_run, [''])
+test('bkprun09', req_c, backpack_run, ['-O'])
+test('T13955', req_c, backpack_run, [''])
+test('T15138', req_c, backpack_run, [''])
+test('T15379', req_c, backpack_run,[''])
test('T20133', expect_broken(20133), backpack_run, [''])
=====================================
testsuite/tests/codeGen/should_run/T20137/all.T
=====================================
@@ -1 +1 @@
-test('T20137', c_src, compile_and_run, ['T20137C.c'])
+test('T20137', req_c, compile_and_run, ['T20137C.c'])
=====================================
testsuite/tests/codeGen/should_run/T20735/all.T
=====================================
@@ -1,5 +1,5 @@
test('T20735',
- c_src,
+ req_c,
multi_compile_and_run,
['T20735', [('T20735_c.c', '')], ''])
=====================================
testsuite/tests/codeGen/should_run/all.T
=====================================
@@ -211,7 +211,7 @@ test('T16449_2', exit_code(0), compile_and_run, [''])
test('T16846', [only_ways(['optasm']), exit_code(1)], compile_and_run, [''])
test('T17920', cmm_src, compile_and_run, [''])
-test('T18527', c_src, compile_and_run, ['T18527FFI.c'])
+test('T18527', req_c, compile_and_run, ['T18527FFI.c'])
test('T19149', only_ways('sanity'), compile_and_run, ['T19149_c.c'])
test('T20275', normal, compile_and_run, [''])
=====================================
testsuite/tests/driver/multipleHomeUnits/o-dir/all.T
=====================================
@@ -1,7 +1,7 @@
# This test checks that getRootSummary doesn't cross package boundaries.
test('multipleHomeUnits_odir'
- , [extra_files([ 'p1/', 'unitP1']),
- c_src
+ , [ extra_files([ 'p1/', 'unitP1'])
+ , req_c
]
, makefile_test
, ['mhu-odir'])
=====================================
testsuite/tests/ffi/should_fail/all.T
=====================================
@@ -9,7 +9,7 @@ test('T3066', normal, compile_fail, [''])
test('ccfail004', [extra_files(['Ccfail004A.hs'])], multimod_compile_fail, ['ccfail004', '-v0'])
test('ccfail005', normal, compile_fail, [''])
test('ccall_value', normal, compile_fail, [''])
-test('capi_value_function', c_src, compile_fail, [''])
+test('capi_value_function', req_c, compile_fail, [''])
test('NonreducingFfiSignature', normal, compile_fail, [''])
test('T5664', normal, compile_fail, ['-v0'])
test('T7506', normal, compile_fail, [''])
@@ -23,8 +23,10 @@ test('T21305_fail', normal, compile_fail, [''])
# from an unsafe foreign function) and only makes sense in non-threaded way
# (threaded runtime will hang). See #14912.
test('UnsafeReenter',
- [omit_ways(threaded_ways), exit_code(1),
- c_src],
+ [ omit_ways(threaded_ways)
+ , exit_code(1),
+ , req_c
+ ],
compile_and_run,
['UnsafeReenterC.c'])
=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -34,7 +34,7 @@ test('ffi004', skip, compile_and_run, [''])
test('ffi005', [ omit_ways(prof_ways + ['ghci']),
when(arch('i386'), skip),
when(platform('i386-apple-darwin'), expect_broken(4105)),
- c_src,
+ req_c,
exit_code(3) ],
compile_and_run, ['ffi005_c.c'])
@@ -79,7 +79,7 @@ test('ffi014', [only_ways(['threaded1', 'threaded2'])], compile_and_run,
['ffi014_cbits.c'])
# GHCi can't handle the separate C file (ToDo: fix this somehow)
-test('ffi015', [omit_ways(['ghci']), c_src], compile_and_run, ['ffi015_cbits.c'])
+test('ffi015', [omit_ways(['ghci']), req_c], compile_and_run, ['ffi015_cbits.c'])
# GHCi can't handle foreign import "&"
test('ffi016', [ omit_ways(['ghci'])
@@ -95,7 +95,7 @@ test('ffi018_ghci',
only_ways(['ghci']),
when(unregisterised(), fragile(16085)),
pre_cmd('$MAKE -s --no-print-directory ffi018_ghci_setup'),
- c_src],
+ req_c],
compile_and_run, ['ffi018_ghci_c.o'])
test('ffi019', [normal, js_skip], compile_and_run, [''])
@@ -103,14 +103,14 @@ test('ffi019', [normal, js_skip], compile_and_run, [''])
# This one originally failed only GHCi, but doesn't hurt to test all ways.
test('T1679', normal, compile_and_run, [''])
-test('T1288', [omit_ways(['ghci']), c_src], compile_and_run, ['T1288_c.c'])
+test('T1288', [omit_ways(['ghci']), req_c], compile_and_run, ['T1288_c.c'])
test('T1288_ghci',
[only_ways(['ghci']),
when(unregisterised(), fragile(16085)),
pre_cmd('$MAKE -s --no-print-directory T1288_ghci_setup')],
compile_and_run, ['T1288_ghci_c.o'])
-test('T2276', [omit_ways(['ghci']), c_src], compile_and_run, ['T2276_c.c'])
+test('T2276', [omit_ways(['ghci']), req_c], compile_and_run, ['T2276_c.c'])
test('T2276_ghci', [ only_ways(['ghci']),
when(opsys('darwin'), skip), # stdcall not supported on OS X
pre_cmd('$MAKE -s --no-print-directory T2276_ghci_setup') ],
@@ -118,7 +118,7 @@ test('T2276_ghci', [ only_ways(['ghci']),
test('T2469', normal, compile_and_run, ['-optc-std=gnu99'])
-test('T2594', [omit_ways(['ghci']), c_src], compile_and_run, ['T2594_c.c'])
+test('T2594', [omit_ways(['ghci']), req_c], compile_and_run, ['T2594_c.c'])
test('fptr01', [omit_ways(['ghci'])], compile_and_run,
[ 'fptr01_js.js' if arch("js") else 'fptr01_c.c'])
@@ -126,7 +126,7 @@ test('fptr02', normal, compile_and_run, [''])
test('fptrfail01', [omit_ways(['ghci']),
exit_code(1),
- c_src], compile_and_run,
+ req_c], compile_and_run,
['fptrfail01_c.c'])
test('T2917a', normal, compile_and_run, [''])
@@ -149,7 +149,7 @@ else:
flagsForT4038 = ['']
test('T4038', normal, compile_and_run, flagsForT4038)
-test('T4221', [omit_ways(['ghci']), c_src], compile_and_run, ['T4221_c.c'])
+test('T4221', [omit_ways(['ghci']), req_c], compile_and_run, ['T4221_c.c'])
test('T5402', [ omit_ways(['ghci']),
exit_code(42),
@@ -172,7 +172,7 @@ test('Capi_Ctype_001', [extra_files(['Capi_Ctype_A_001.hsc', 'capi_ctype_001.h',
test('Capi_Ctype_002', [extra_files(['Capi_Ctype_A_002.hsc', 'capi_ctype_002_A.h', 'capi_ctype_002_B.h']), js_skip],
makefile_test, ['Capi_Ctype_002'])
-test('ffi_parsing_001', [omit_ways(['ghci']), c_src], compile_and_run,
+test('ffi_parsing_001', [omit_ways(['ghci']), req_c], compile_and_run,
['ffi_parsing_001_c.c'])
test('capi_value', [omit_ways(['ghci']), js_skip], compile_and_run, ['capi_value_c.c'])
@@ -185,7 +185,7 @@ test('T7170',
test('T4012', [expect_broken_for(7388, ['ghci']), js_skip], multimod_compile_and_run,
['T4012', ''])
-test('T8083', [omit_ways(['ghci']), c_src], compile_and_run, ['T8083_c.c'])
+test('T8083', [omit_ways(['ghci']), req_c], compile_and_run, ['T8083_c.c'])
test('T9274', [omit_ways(['ghci'])], compile_and_run, [''])
@@ -198,39 +198,39 @@ test('ffi023', [ omit_ways(['ghci']),
# needs it.
compile_and_run, ['ffi023_c.c'])
-test('T12134', [omit_ways(['ghci']),c_src], compile_and_run, ['T12134_c.c'])
+test('T12134', [omit_ways(['ghci']),req_c], compile_and_run, ['T12134_c.c'])
-test('T12614', [omit_ways(['ghci']),c_src], compile_and_run, ['T12614_c.c'])
+test('T12614', [omit_ways(['ghci']),req_c], compile_and_run, ['T12614_c.c'])
test('T14624', [omit_ways(['ghci'])], compile_and_run, ['T14624_c.c'])
-test('T15933', [extra_files(['T15933_c.c', 'T15933.h']), c_src], makefile_test, ['T15933'])
+test('T15933', [extra_files(['T15933_c.c', 'T15933.h']), req_c], makefile_test, ['T15933'])
-test('T16650a', [omit_ways(['ghci']), c_src], compile_and_run, ['T16650a_c.c'])
+test('T16650a', [omit_ways(['ghci']), req_c], compile_and_run, ['T16650a_c.c'])
-test('T16650b', [omit_ways(['ghci']), c_src], compile_and_run, ['T16650b_c.c'])
+test('T16650b', [omit_ways(['ghci']), req_c], compile_and_run, ['T16650b_c.c'])
-test('T16650c', [omit_ways(['ghci']), c_src], compile_and_run, ['T16650c_c.c'])
+test('T16650c', [omit_ways(['ghci']), req_c], compile_and_run, ['T16650c_c.c'])
-test('T16650d', [omit_ways(['ghci']), c_src], compile_and_run, ['T16650d_c.c'])
+test('T16650d', [omit_ways(['ghci']), req_c], compile_and_run, ['T16650d_c.c'])
-test('PrimFFIInt8', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIInt8_c.c'])
+test('PrimFFIInt8', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIInt8_c.c'])
-test('PrimFFIWord8', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIWord8_c.c'])
+test('PrimFFIWord8', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIWord8_c.c'])
-test('PrimFFIInt16', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIInt16_c.c'])
+test('PrimFFIInt16', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIInt16_c.c'])
-test('PrimFFIWord16', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIWord16_c.c'])
+test('PrimFFIWord16', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIWord16_c.c'])
-test('PrimFFIInt32', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIInt32_c.c'])
+test('PrimFFIInt32', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIInt32_c.c'])
-test('PrimFFIWord32', [omit_ways(['ghci']), c_src], compile_and_run, ['PrimFFIWord32_c.c'])
+test('PrimFFIWord32', [omit_ways(['ghci']), req_c], compile_and_run, ['PrimFFIWord32_c.c'])
-test('T493', [omit_ways(['ghci']), c_src], compile_and_run, ['T493_c.c'])
+test('T493', [omit_ways(['ghci']), req_c], compile_and_run, ['T493_c.c'])
-test('UnliftedNewtypesByteArrayOffset', [omit_ways(['ghci']), c_src], compile_and_run, ['UnliftedNewtypesByteArrayOffset_c.c'])
+test('UnliftedNewtypesByteArrayOffset', [omit_ways(['ghci']), req_c], compile_and_run, ['UnliftedNewtypesByteArrayOffset_c.c'])
-test('T17471', [omit_ways(['ghci']), c_src], compile_and_run,
+test('T17471', [omit_ways(['ghci']), req_c], compile_and_run,
['T17471_c.c -optc-D -optcFOO'])
test('IncallAffinity',
@@ -240,7 +240,7 @@ test('IncallAffinity',
compile_and_run,
['IncallAffinity_c.c -no-hs-main'])
-test('T19237', c_src, compile_and_run, ['T19237_c.c'])
+test('T19237', req_c, compile_and_run, ['T19237_c.c'])
test('T21305', [cmm_src,omit_ways(['ghci'])], multi_compile_and_run,
['T21305', [('T21305_cmm.cmm', '')], ''])
=====================================
testsuite/tests/generics/all.T
=====================================
@@ -20,9 +20,10 @@ test('GenCannotDoRep1_8', normal, compile_fail, [''])
test('GFullyStrict', normal, compile_and_run, [''])
test('T5462Yes1', [extra_files(['GEnum/', 'GEq/', 'GFunctor/']),
- outputdir('out_T5462Yes1'), c_src]
+ outputdir('out_T5462Yes1'),
+ req_c]
, multimod_compile_and_run, ['T5462Yes1', '-iGEq -iGEnum -iGFunctor'])
-test('T5462Yes2', [extra_files(['GFunctor/']), outputdir('out_T5462Yes2'), c_src]
+test('T5462Yes2', [extra_files(['GFunctor/']), outputdir('out_T5462Yes2'), req_c]
, multimod_compile_and_run, ['T5462Yes2', '-iGFunctor'])
test('T5462No1', [extra_files(['GFunctor/']), outputdir('out_T5462No1')]
, multimod_compile_fail, ['T5462No1', '-iGFunctor'])
=====================================
testsuite/tests/package/T20010/all.T
=====================================
@@ -1,4 +1,4 @@
# Test that GHC links to the C++ standard library as expected
# when the system-cxx-std-lib package is used.
-test('T20010', c_src, makefile_test, [])
-test('T20010-ghci', [c_src, extra_files(['T20010_c.cpp', 'T20010.hs'])], makefile_test, [])
+test('T20010', req_c, makefile_test, [])
+test('T20010-ghci', [req_c, extra_files(['T20010_c.cpp', 'T20010.hs'])], makefile_test, [])
=====================================
testsuite/tests/rep-poly/all.T
=====================================
@@ -40,9 +40,9 @@ test('RepPolyArgument', normal, compile_fail, [''])
test('RepPolyArrowCmd', normal, compile_fail, [''])
test('RepPolyArrowFun', normal, compile_fail, [''])
test('RepPolyBackpack1', normal, backpack_compile_fail, [''])
-test('RepPolyBackpack2', c_src, backpack_run, [''])
+test('RepPolyBackpack2', req_c, backpack_run, [''])
test('RepPolyBackpack3', normal, backpack_compile_fail, [''])
-test('RepPolyBackpack4', c_src, backpack_run, [''])
+test('RepPolyBackpack4', req_c, backpack_run, [''])
test('RepPolyBackpack5', normal, backpack_run, [''])
test('RepPolyBinder', normal, compile_fail, [''])
test('RepPolyCase1', normal, compile_fail, [''])
=====================================
testsuite/tests/rts/all.T
=====================================
@@ -211,7 +211,7 @@ test('EventlogOutput_IPE',
def noCapabilityOutputFilter(s):
return re.sub(r'[a-f0-9]+: IPE:', 'IPE:', s)
-test('T4059', c_src, makefile_test, ['T4059'])
+test('T4059', req_c, makefile_test, ['T4059'])
# Test for #4274
test('exec_signals',
@@ -258,7 +258,7 @@ test('T7037', [], makefile_test, ['T7037'])
test('T7087', exit_code(1), compile_and_run, [''])
test('T7160', omit_ways(['nonmoving_thr', 'nonmoving_thr_ghc']), compile_and_run, [''])
-test('T7040', [omit_ways(['ghci']), c_src], compile_and_run, ['T7040_c.c'])
+test('T7040', [omit_ways(['ghci']), req_c], compile_and_run, ['T7040_c.c'])
test('T7040_ghci',
[extra_files(['T7040_c.h']),
@@ -378,7 +378,7 @@ test('T10590', [ ignore_stderr
], compile_and_run, [''])
# 20000 was easily enough to trigger the bug with 7.10
-test('T10904', [ omit_ways(['ghci']), extra_run_opts('20000'), c_src ],
+test('T10904', [ omit_ways(['ghci']), extra_run_opts('20000'), req_c ],
compile_and_run, ['T10904lib.c'])
test('T10728', [extra_run_opts('+RTS -maxN3 -RTS'), only_ways(['threaded2'])],
@@ -475,10 +475,10 @@ test('keep-cafs',
# Test proper functioning of C++ exceptions within a C++ program.
# On darwin, this requires -fcompact-unwind.
-test('T11829', [ check_errmsg("This is a test"), c_src], compile_and_run,
+test('T11829', [ check_errmsg("This is a test"), req_c], compile_and_run,
['T11829_c.cpp -package system-cxx-std-lib'])
-test('T16514', c_src, compile_and_run, ['T16514_c.c'])
+test('T16514', req_c, compile_and_run, ['T16514_c.c'])
test('test-zeroongc', extra_run_opts('-DZ'), compile_and_run, ['-debug'])
test('T13676',
@@ -488,7 +488,7 @@ test('T13676',
test('InitEventLogging',
[ only_ways(['normal'])
, extra_run_opts('+RTS -RTS')
- , c_src
+ , req_c
],
compile_and_run, ['InitEventLogging_c.c'])
test('RestartEventLogging',
@@ -516,16 +516,16 @@ test('T19381',
test('T20199', [ grep_errmsg('Hello') ]
, makefile_test, [])
-test('cloneMyStack', [c_src,extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c'])
+test('cloneMyStack', [req_c,extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c'])
test('cloneMyStack2',
[ ignore_stdout
, js_broken(22261) # cloneMyStack# not yet implemented
], compile_and_run, [''])
-test('cloneMyStack_retBigStackFrame', [c_src,extra_files(['cloneStackLib.c']), ignore_stdout], compile_and_run, ['cloneStackLib.c'])
+test('cloneMyStack_retBigStackFrame', [req_c,extra_files(['cloneStackLib.c']), ignore_stdout], compile_and_run, ['cloneStackLib.c'])
-test('cloneThreadStack', [c_src,only_ways(['threaded1']), extra_ways(['threaded1']), extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c -threaded'])
+test('cloneThreadStack', [req_c,only_ways(['threaded1']), extra_ways(['threaded1']), extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c -threaded'])
test('decodeMyStack',
[ js_broken(22261) # cloneMyStack# not yet implemented
=====================================
testsuite/tests/rts/linker/T11223/all.T
=====================================
@@ -15,13 +15,13 @@ def normalise_duplicate_errmsg( msg ):
test('T11223_simple_link',
[extra_files(['foo.c', 'foo.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_simple_link'])
test('T11223_simple_link_lib',
[extra_files(['foo.c', 'foo.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_simple_link_lib'])
# I'm ignoring the output since for this particular invocation normalise_errmsg
@@ -35,37 +35,37 @@ test('T11223_simple_duplicate_lib',
[extra_files(['bar.c', 'foo.c', 'foo.hs']),
when(platform('i386-unknown-mingw32'), expect_broken(13515)),
when(ghc_dynamic(), skip), normalise_errmsg_fun(normalise_duplicate_errmsg),
- c_src],
+ req_c],
makefile_test, ['t_11223_simple_duplicate_lib'])
test('T11223_simple_unused_duplicate_lib',
[extra_files(['bar.c', 'foo.c', 'foo.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_simple_unused_duplicate_lib'])
test('T11223_link_order_a_b_succeed',
[extra_files(['bar.c', 'foo.c', 'foo2.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_link_order_a_b_succeed'])
test('T11223_link_order_b_a_succeed',
[extra_files(['bar.c', 'foo.c', 'foo2.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_link_order_b_a_succeed'])
test('T11223_link_order_a_b_2_fail',
[extra_files(['bar.c', 'foo.c', 'foo3.hs']),
when(ghc_dynamic(), skip), normalise_errmsg_fun(normalise_duplicate_errmsg),
- c_src],
+ req_c],
makefile_test, ['t_11223_link_order_a_b_2_fail'])
test('T11223_link_order_b_a_2_succeed',
[extra_files(['bar.c', 'foo.c', 'foo3.hs']),
when(ghc_dynamic(), skip),
- c_src],
+ req_c],
makefile_test, ['t_11223_link_order_b_a_2_succeed'])
# Weak Symbols are not currently implemented. So Disable all the tests
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d567ba3cc522cb74e84d1fc478b191d9e9e5086d
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d567ba3cc522cb74e84d1fc478b191d9e9e5086d
You're receiving this email because of your account on gitlab.haskell.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221020/20339be6/attachment-0001.html>
More information about the ghc-commits
mailing list