diff options
Diffstat (limited to 'testsuite/tests/quantified-constraints')
-rw-r--r-- | testsuite/tests/quantified-constraints/T18432.hs | 10 | ||||
-rw-r--r-- | testsuite/tests/quantified-constraints/all.T | 1 |
2 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/quantified-constraints/T18432.hs b/testsuite/tests/quantified-constraints/T18432.hs new file mode 100644 index 0000000000..ba50727420 --- /dev/null +++ b/testsuite/tests/quantified-constraints/T18432.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE QuantifiedConstraints #-} +module Bug where + +import Data.Proxy + +class C a where + m :: Proxy a + +f :: (forall {a}. C a) => Proxy Int +f = m diff --git a/testsuite/tests/quantified-constraints/all.T b/testsuite/tests/quantified-constraints/all.T index da3a6fecec..9bcc30b1a9 100644 --- a/testsuite/tests/quantified-constraints/all.T +++ b/testsuite/tests/quantified-constraints/all.T @@ -29,3 +29,4 @@ test('T17267c', normal, compile_fail, ['']) test('T17267d', normal, compile_and_run, ['']) test('T17267e', normal, compile_fail, ['']) test('T17458', normal, compile_fail, ['']) +test('T18432', normal, compile, ['']) |