Lower precedence for {-# UNPACK #-}
[ghc.git] / testsuite / tests / typecheck / should_fail / T9305.hs
1 {-# LANGUAGE DeriveFunctor#-}
2 module Main where
3
4 data Event a b = Event a deriving (Functor)
5
6 newtype F f = F (f (F f))
7
8 data EventF a = EventF (F (Event a)) deriving (Functor)