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