1{-# LANGUAGE TypeSynonymInstances #-} 2module NeedsPragmas where 3 4import GHC.Generics 5 6main = putStrLn "hello" 7 8type Foo = Int 9 10instance Show Foo where 11 show x = undefined 12 13instance Show (Int,String) where 14 show = undefined 15 16data FFF a = FFF Int String a 17 deriving (Generic,Functor,Traversable) 18