Commit 2d44ece0 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7336

parent 8c3dc562
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
T7336.hs:3:10: Warning:
Defined but not used: data constructor `MkU'
......@@ -201,3 +201,4 @@ test('dodgy',
['dodgy', '-v0'])
test('T7167', normal, compile, [''])
test('T7336', normal, compile, ['-Wall'])
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment