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 (file)
--- a/compiler/basicTypes/Module.lhs
+++ b/compiler/basicTypes/Module.lhs
@@ -37,6 +37,8 @@ module Module
        haskell98PackageId,
        thPackageId,
         ndpPackageId,
        haskell98PackageId,
        thPackageId,
         ndpPackageId,

+        dphSeqPackageId,
+        dphParPackageId,

        mainPackageId,
 
        -- * The Module type
        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")
 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
 
 -- 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 (file)
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -384,6 +384,8 @@ findWiredInPackages dflags pkgs preload this_package = do
                             (rtsPackageId, [""]),
                             (haskell98PackageId, [""]),
                             (thPackageId, [""]),
                             (rtsPackageId, [""]),
                             (haskell98PackageId, [""]),
                             (thPackageId, [""]),

+                            (dphSeqPackageId, [""]),
+                            (dphParPackageId, [""]),

                             (ndpPackageId, ["-seq", "-par"]) ]
 
         matches :: PackageConfig -> (PackageId, [String]) -> Bool
                             (ndpPackageId, ["-seq", "-par"]) ]
 
         matches :: PackageConfig -> (PackageId, [String]) -> Bool