diff options
| -rw-r--r-- | testsuite/tests/deriving/should_compile/T8963.hs | 9 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_compile/all.T | 1 |
2 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_compile/T8963.hs b/testsuite/tests/deriving/should_compile/T8963.hs new file mode 100644 index 0000000000..78dcf469e8 --- /dev/null +++ b/testsuite/tests/deriving/should_compile/T8963.hs @@ -0,0 +1,9 @@ +{-# LANGUAGE TypeFamilies, GeneralizedNewtypeDeriving #-} + +module T8963 where + +class C c where + data F c r + +instance C Int where + newtype F Int r = F (IO r) deriving (Functor) diff --git a/testsuite/tests/deriving/should_compile/all.T b/testsuite/tests/deriving/should_compile/all.T index c8ee7faa3c..224b99ef00 100644 --- a/testsuite/tests/deriving/should_compile/all.T +++ b/testsuite/tests/deriving/should_compile/all.T @@ -48,3 +48,4 @@ test('T8678', normal, compile, ['']) test('T8865', normal, compile, ['']) test('T8893', normal, compile, ['']) test('T8950', expect_broken(8950), compile, ['']) +test('T8963', normal, compile, ['']) |