projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
707a05d9ba427f08b045d0210825b8309966deb4
[ghc-hetmet.git]
/
ghc
/
compiler
/
tests
/
deriving
/
drv001.hs
1
--!!! canonical weird example for "deriving"
2
3
data X a b
4
= C1 (T a)
5
| C2 (Y b)
6
| C3 (X b a)
7
deriving Text
8
9
data Y b
10
= D1
11
| D2 (X Int b)
12
deriving Text
13
14
data T a
15
= E1
16
17
instance Eq a => Text (T a) where
18
showsPrec = error "show"
19
readsPrec = error "read"