Commit 6c9258de authored by Matthew Pickering's avatar Matthew Pickering

Add test for #10897

parent 1687f999
{-# LANGUAGE PatternSynonyms #-}
module T10897a where
pattern Single :: a -> a
pattern Single x = x
module B where
import T10897a
Single y = True
......@@ -42,3 +42,6 @@ test('poly-export3', normal, compile, [''])
test('multi-export', normal, compile, [''])
test('export-super-class', normal, compile, [''])
test('export-record-selector', normal, compile, [''])
test('T10897', expect_broken(10897), multi_compile, ['T10897', [
('T10897a.hs','-c')
,('T10897b.hs', '-c')], ''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment