Ticket #4896: Main.hs

File Main.hs, 401 bytes (added by mitar, 5 years ago)
Line 
1{-# LANGUAGE TypeFamilies, DeriveDataTypeable, StandaloneDeriving #-}
2
3module Main where
4
5import Data.Data
6
7--instance Typeable1 Bar where
8--  typeOf1 _ = mkTyConApp (mkTyCon "Main.Bar") []
9deriving instance Typeable1 Bar
10
11class Foo a where
12  data Bar a
13
14data D a b = D Int a deriving (Typeable, Data)
15
16instance Foo (D a b) where
17  data Bar (D a b) = B { l :: a } deriving (Eq, Ord, Read, Show, Data)