{-# LANGUAGE CPP #-}
module Language.Haskell.TH.Datatype.Internal where
import Language.Haskell.TH.Syntax
eqTypeName :: Name
#if MIN_VERSION_base(4,9,0) && !(MIN_VERSION_base(4,13,0))
eqTypeName = mkNameG_tc "base" "Data.Type.Equality" "~"
#else
eqTypeName :: Name
eqTypeName = String -> String -> String -> Name
mkNameG_tc String
"ghc-prim" String
"GHC.Types" String
"~"
#endif
starKindName :: Name
starKindName :: Name
starKindName = String -> String -> String -> Name
mkNameG_tc String
"ghc-prim" String
"GHC.Prim" String
"*"