#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 702
#endif
module Data.Dependent.Sum.Typeable where
import Data.Dependent.Sum
import Data.Typeable
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 702
instance Typeable1 t => Typeable (DSum t) where
typeOf ds = mkTyConApp dSumCon [typeOfT]
where
dSumCon = mkTyCon3 "dependent-sum" "Data.Dependent.Sum" "DSum"
typeOfT = typeOf1 $ (undefined :: DSum f -> f a) ds
#else
instance Typeable1 t => Typeable (DSum t) where
typeOf ds = mkTyConApp dSumCon [typeOfT]
where
dSumCon = mkTyCon "Data.Dependent.Sum.DSum"
typeOfT = typeOf1 $ (undefined :: DSum f -> f a) ds
#endif