diff options
author | simonpj <simonpj@microsoft.com> | 2007-12-21 09:03:40 +0000 |
---|---|---|
committer | simonpj <simonpj@microsoft.com> | 2007-12-21 09:03:40 +0000 |
commit | 82711cb263a30bb82f6bb720354d490a0bdf31d8 (patch) | |
tree | 885178ead2e8807045dd39ef6fcdd9d5f2a14bb9 /testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs | |
parent | f0cd5ace244d3e70aee3216f2d56f4a2e2e7d162 (diff) | |
download | haskell-82711cb263a30bb82f6bb720354d490a0bdf31d8.tar.gz |
Add test for Trac 1981
Diffstat (limited to 'testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs b/testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs new file mode 100644 index 0000000000..658821ea73 --- /dev/null +++ b/testsuite/tests/ghc-regress/indexed-types/should_compile/T1981.hs @@ -0,0 +1,8 @@ +{-# OPTIONS_GHC -XTypeFamilies #-} + +module ShouldCompile where + +type family T a + +f :: T a -> Int +f x = x `seq` 3 |