diff options
Diffstat (limited to 'testsuite/tests/indexed-types/should_compile/Simple16.hs')
| -rw-r--r-- | testsuite/tests/indexed-types/should_compile/Simple16.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/indexed-types/should_compile/Simple16.hs b/testsuite/tests/indexed-types/should_compile/Simple16.hs new file mode 100644 index 0000000000..f1958c3ffd --- /dev/null +++ b/testsuite/tests/indexed-types/should_compile/Simple16.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE TypeFamilies #-} +-- submitted by g9ks157k@acme.softbase.org as #1713 +module TypeFamilyBug where + +type family TestFamily a :: * + +type instance TestFamily () = [()] + +testFunction :: value -> TestFamily value -> () +testFunction = const (const ()) + +testApplication :: () +testApplication = testFunction () (return ())
\ No newline at end of file |