diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T20200a.hs | 8 | ||||
-rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T20200a.hs b/testsuite/tests/simplCore/should_compile/T20200a.hs new file mode 100644 index 0000000000..41f36d4e4f --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T20200a.hs @@ -0,0 +1,8 @@ +module T20200a where + +import qualified Data.Map.Strict as Map + +f :: [Maybe (Int, Bool)] +f = map Just + $ Map.keys + $ Map.fromListWith (||) [] diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index 28e5cb4fc9..03039e8f8c 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -373,3 +373,4 @@ test('T20174', normal, compile, ['']) test('T16373', normal, compile, ['']) test('T20112', normal, multimod_compile, ['T20112', '-O -v0 -g1']) test('T20200', normal, compile, ['']) +test('T20200a', normal, compile, ['-O2']) |