diff --git a/testsuite/tests/typecheck/should_fail/T9999.hs b/testsuite/tests/typecheck/should_fail/T9999.hs new file mode 100644 index 0000000000000000000000000000000000000000..656e913043c239c1609e395b0f2ece9c3b2b1ca5 --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/T9999.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE AutoDeriveTypeable, PolyKinds, TypeFamilies, StandaloneDeriving #-} + +module T9999 where + +import Data.Typeable + +data family F a + +class C a where + data F1 a + type F2 a + +main = typeRep (Proxy :: Proxy F) == typeRep (Proxy :: Proxy F1) diff --git a/testsuite/tests/typecheck/should_fail/T9999.stderr b/testsuite/tests/typecheck/should_fail/T9999.stderr new file mode 100644 index 0000000000000000000000000000000000000000..6fa61d957f6ddc74cfcc2d0d65868364bf2681ee --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/T9999.stderr @@ -0,0 +1,11 @@ + +T9999.hs:13:38: + No instance for (Typeable F1) + (maybe you haven't applied enough arguments to a function?) + arising from a use of ‘typeRep’ + In the second argument of ‘(==)’, namely + ‘typeRep (Proxy :: Proxy F1)’ + In the expression: + typeRep (Proxy :: Proxy F) == typeRep (Proxy :: Proxy F1) + In an equation for ‘main’: + main = typeRep (Proxy :: Proxy F) == typeRep (Proxy :: Proxy F1)