testsuite/tests/deriving/should_fail/drvfail013.hs


1
2
3
4
5
6


-- Test for trac #1588: unrequested generalized newtype deriving?

newtype MaybeT  m a = MaybeT  { runMaybeT  :: m (Maybe a) } deriving Eq

data    MaybeT' m a = MaybeT' { runMaybeT' :: m (Maybe a) } deriving Eq