diff options
| author | Austin Seipp <austin@well-typed.com> | 2015-03-07 10:40:18 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-03-07 10:40:18 -0600 |
| commit | 34ba68c2aeb6fb2d1ea25a1a5e45c233ed7efc9c (patch) | |
| tree | a4dd52f8a422e7a43f423c3fb767ed15d8faea56 /testsuite | |
| parent | b359c886cd7578ed083bcedcea05d315ecaeeb54 (diff) | |
| download | haskell-34ba68c2aeb6fb2d1ea25a1a5e45c233ed7efc9c.tar.gz | |
Add missed test (uuugh)
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'testsuite')
| -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) |