projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5ac9468
)
Expose the dph packages automatically if -dph-* is set
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Fri, 12 Sep 2008 00:44:03 +0000
(
00:44
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Fri, 12 Sep 2008 00:44:03 +0000
(
00:44
+0000)
compiler/main/DynFlags.hs
patch
|
blob
|
history
diff --git
a/compiler/main/DynFlags.hs
b/compiler/main/DynFlags.hs
index
43ecba7
..
3d17361
100644
(file)
--- a/
compiler/main/DynFlags.hs
+++ b/
compiler/main/DynFlags.hs
@@
-1435,10
+1435,10
@@
dynamic_flags = [
------ DPH flags ----------------------------------------------------
, Flag "fdph-seq"
------ DPH flags ----------------------------------------------------
, Flag "fdph-seq"
- (NoArg (upd (setDPHBackend DPHSeq)))
+ (NoArg (setDPHBackend DPHSeq))
Supported
, Flag "fdph-par"
Supported
, Flag "fdph-par"
- (NoArg (upd (setDPHBackend DPHPar)))
+ (NoArg (setDPHBackend DPHPar))
Supported
------ Compiler flags -----------------------------------------------
Supported
------ Compiler flags -----------------------------------------------
@@
-1873,9
+1873,15
@@
setDPHOpt dflags = setOptLevel 2 (dflags { maxSimplIterations = 20
data DPHBackend = DPHPar
| DPHSeq
data DPHBackend = DPHPar
| DPHSeq
-setDPHBackend :: DPHBackend -> DynFlags -> DynFlags
-setDPHBackend backend dflags = dflags { dphBackend = backend }
-
+setDPHBackend :: DPHBackend -> DynP ()
+setDPHBackend backend
+ = do
+ upd $ \dflags -> dflags { dphBackend = backend }
+ exposePackage $ "dph-prim-" ++ suffix backend
+ exposePackage $ "dph-" ++ suffix backend
+ where
+ suffix DPHPar = "par"
+ suffix DPHSeq = "seq"
setMainIs :: String -> DynP ()
setMainIs arg
setMainIs :: String -> DynP ()
setMainIs arg