NamesEntities.lhs

module NamesEntities (
    module NamesEntities,
    module Ents,
    module Names
  ) where
 
  --import Set
  import Maybe(isJust)
  import Ents(Entity,isCon,isValue,owns)
  import Names(Name,QName,ModName,
               getQualified, getQualifier, mkQual, mkUnqual)




















































































  isQual :: QName -> Bool
  isQual = isJust . getQualifier

  qual :: ModName -> QName -> QName
  qual m = mkQual m . getQualified 






  class ToSimple t where
    toSimple :: t -> Name
 
  instance ToSimple Name where
    toSimple = id
 
  instance ToSimple QName where
    toSimple = getQualified