From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Tue, 1 Jul 2008 02:02:14 +0000 (+0000)
Subject: Make dph-seq and dph-par wired-in packages
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=48b6c777e2e84cc42a27a50642bcb41a0bd2c1d7

Make dph-seq and dph-par wired-in packages
---

diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs
index 6916911..57509a0 100644
--- a/compiler/basicTypes/Module.lhs
+++ b/compiler/basicTypes/Module.lhs
@@ -37,6 +37,8 @@ module Module
 	haskell98PackageId,
 	thPackageId,
         ndpPackageId,
+        dphSeqPackageId,
+        dphParPackageId,
 	mainPackageId,
 
 	-- * The Module type
@@ -312,6 +314,8 @@ 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")
 
 -- This is the package Id for the program.  It is the default package
 -- Id if you don't specify a package name.  We don't add this prefix
diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs
index d468b79..0628b66 100644
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -384,6 +384,8 @@ findWiredInPackages dflags pkgs preload this_package = do
                             (rtsPackageId, [""]),
                             (haskell98PackageId, [""]),
                             (thPackageId, [""]),
+                            (dphSeqPackageId, [""]),
+                            (dphParPackageId, [""]),
                             (ndpPackageId, ["-seq", "-par"]) ]
 
         matches :: PackageConfig -> (PackageId, [String]) -> Bool