summaryrefslogtreecommitdiff
path: root/testsuite/tests/generics/GenCanDoRep1.hs
diff options
context:
space:
mode:
authorJose Pedro Magalhaes <jpm@cs.ox.ac.uk>2012-12-10 12:30:07 +0000
committerJose Pedro Magalhaes <jpm@cs.ox.ac.uk>2012-12-10 12:30:07 +0000
commit416290574bedfa86edf31b9a2fa1a3c5ea1e3ac4 (patch)
treeed95246b461c0c40580d3d79f51020bfa5b35107 /testsuite/tests/generics/GenCanDoRep1.hs
parentdbb5a87f1ff67609676f887dfcfa1bc57f19072b (diff)
downloadhaskell-416290574bedfa86edf31b9a2fa1a3c5ea1e3ac4.tar.gz
Add test for #7487
Diffstat (limited to 'testsuite/tests/generics/GenCanDoRep1.hs')
-rw-r--r--testsuite/tests/generics/GenCanDoRep1.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/testsuite/tests/generics/GenCanDoRep1.hs b/testsuite/tests/generics/GenCanDoRep1.hs
index 16ca81d88a..93817e6c54 100644
--- a/testsuite/tests/generics/GenCanDoRep1.hs
+++ b/testsuite/tests/generics/GenCanDoRep1.hs
@@ -16,5 +16,9 @@ data B a = B0 | B1
data C a = C0 | C1 { c11 :: a, c12 :: (C a) }
deriving (Generic, Generic1)
+data D a = D (Either Int a) deriving Generic1
+
+data E a = E (Either Int (E a)) deriving Generic1
+
data (:*:) a b = a :*: b
deriving (Generic, Generic1)