Suppress unused warnings for selectors for some derived classes
[ghc.git] / testsuite / tests / deriving / should_compile / T13919.hs
1 {-# LANGUAGE DeriveGeneric #-}
2 {-# OPTIONS_GHC -Wunused-binds #-}
3 module T13919 () where
4
5 import GHC.Generics
6
7 data Foo1 = Foo1 {bar1 :: String} deriving Show
8 data Foo2 = Foo2 {bar2 :: String} deriving Read
9 data Foo3 = Foo3 {bar3 :: String} deriving Generic
10
11 -- Only this one should emit a "Defined but not used" warning for its
12 -- record selector
13 data Foo4 = Foo4 {bar4 :: String} deriving Eq