diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-20 10:59:40 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-20 10:59:40 +0100 |
| commit | 5cc67734fd541c07928098e0d5f21ee6b9e3fde8 (patch) | |
| tree | ce7e7afbdb81f4cf395ad13808e1de6a5573cd62 /testsuite/tests/gadt/T7558.hs | |
| parent | a67156eed3561d5964dc4a46e1cbbd66a0368923 (diff) | |
| download | haskell-5cc67734fd541c07928098e0d5f21ee6b9e3fde8.tar.gz | |
Test Trac #7558
Diffstat (limited to 'testsuite/tests/gadt/T7558.hs')
| -rw-r--r-- | testsuite/tests/gadt/T7558.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/gadt/T7558.hs b/testsuite/tests/gadt/T7558.hs new file mode 100644 index 0000000000..129704f955 --- /dev/null +++ b/testsuite/tests/gadt/T7558.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE GADTs #-} +module T7558 where + +data T a b where + MkT :: (a~Maybe b) => a -> Maybe b -> T a b + +f :: T a a -> Bool +f (MkT x y) = [x,y] `seq` True |