{-
************************************************************************
*                                                                      *
   Semi-builtin names
*                                                                      *
************************************************************************

The following names should be considered by GHCi to be in scope always.

-}

pretendNameIsInScope :: Name -> Bool
pretendNameIsInScope n
  = any (n `hasKey`)
    [ starKindTyConKey, liftedTypeKindTyConKey, tYPETyConKey
    , runtimeRepTyConKey, liftedRepDataConKey ]
pretendNameIsInScope :: Name -> Bool
pretendNameIsInScope n
  = any (n `hasKey`)
    [ starKindTyConKey, liftedTypeKindTyConKey, tYPETyConKey
    , runtimeRepTyConKey, liftedRepDataConKey ]
pretendNameIsInScope n
  = any (n `hasKey`)
    [ starKindTyConKey, liftedTypeKindTyConKey, tYPETyConKey
    , runtimeRepTyConKey, liftedRepDataConKey ]