Properly comment out unused pragmas

[ghc-hetmet.git] / compiler / basicTypes / Module.lhs

diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs
index 6916911..9eafb2f 100644 (file)
--- 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
@@ -304,7 +306,8 @@ packageIdString = unpackFS . packageIdFS
 
 integerPackageId, primPackageId,
   basePackageId, rtsPackageId, haskell98PackageId,
-  thPackageId, ndpPackageId, mainPackageId  :: PackageId
+  thPackageId, ndpPackageId, dphSeqPackageId, dphParPackageId,
+  mainPackageId  :: PackageId
 primPackageId      = fsToPackageId (fsLit "ghc-prim")
 integerPackageId   = fsToPackageId (fsLit "integer")
 basePackageId      = fsToPackageId (fsLit "base")
@@ -312,6 +315,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