blob: 166bae60769ce6ac1bd675eb1e436e9295f7b10a (
plain)
1
2
3
4
5
6
7
8
|
module T7336 ( U, T ) where
data U = MkU deriving Show
-- Want to report MkU as unused
data T = MkT deriving Read
-- But MkT is not unused; we might
-- parse a string to generate it
|