rtsPackageId,
haskell98PackageId,
thPackageId,
- ndpPackageId,
dphSeqPackageId,
dphParPackageId,
mainPackageId,
emptyModuleSet, mkModuleSet, moduleSetElts, extendModuleSet, elemModuleSet
) where
+import Config
import Outputable
import qualified Pretty
import Unique
}
deriving (Eq, Ord)
+instance Uniquable Module where
+ getUnique (Module p n) = getUnique (packageIdFS p `appendFS` moduleNameFS n)
+
instance Outputable Module where
ppr = pprModule
integerPackageId, primPackageId,
basePackageId, rtsPackageId, haskell98PackageId,
- thPackageId, ndpPackageId, dphSeqPackageId, dphParPackageId,
+ thPackageId, dphSeqPackageId, dphParPackageId,
mainPackageId :: PackageId
primPackageId = fsToPackageId (fsLit "ghc-prim")
-integerPackageId = fsToPackageId (fsLit "integer")
+integerPackageId = fsToPackageId (fsLit cIntegerLibrary)
basePackageId = fsToPackageId (fsLit "base")
rtsPackageId = fsToPackageId (fsLit "rts")
haskell98PackageId = fsToPackageId (fsLit "haskell98")
thPackageId = fsToPackageId (fsLit "template-haskell")
-ndpPackageId = fsToPackageId (fsLit "ndp")
dphSeqPackageId = fsToPackageId (fsLit "dph-seq")
dphParPackageId = fsToPackageId (fsLit "dph-par")