diff options
| -rw-r--r-- | testsuite/tests/typecheck/should_fail/T9999.hs | 13 | ||||
| -rw-r--r-- | testsuite/tests/typecheck/should_fail/T9999.stderr | 11 |
2 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/T9999.hs b/testsuite/tests/typecheck/should_fail/T9999.hs new file mode 100644 index 0000000000..656e913043 --- /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 0000000000..ae7fa28123 --- /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 a function to enough arguments?) + 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) |