, Flag "fdph-par"
(NoArg (setDPHBackend DPHPar))
Supported
+ , Flag "fdph-this"
+ (NoArg (setDPHBackend DPHThis))
+ Supported
------ Compiler flags -----------------------------------------------
data DPHBackend = DPHPar
| DPHSeq
+ | DPHThis
+ deriving(Eq, Ord, Enum, Show)
setDPHBackend :: DPHBackend -> DynP ()
setDPHBackend backend
= do
upd $ \dflags -> dflags { dphBackend = backend }
- exposePackage $ "dph-prim-" ++ suffix backend
- exposePackage $ "dph-" ++ suffix backend
+ mapM_ exposePackage (dph_packages backend)
where
- suffix DPHPar = "par"
- suffix DPHSeq = "seq"
+ dph_packages DPHThis = []
+ dph_packages DPHPar = ["dph-prim-par", "dph-par"]
+ dph_packages DPHSeq = ["dph-prim-seq", "dph-seq"]
setMainIs :: String -> DynP ()
setMainIs arg
backendPackage DPHSeq = dphSeqPackageId
backendPackage DPHPar = dphParPackageId
+ backendPackage DPHThis = thisPackage dflags
vectModule :: ModGuts -> VM ModGuts
vectModule guts