diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-09-12 00:44:03 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-09-12 00:44:03 +0000 |
| commit | 1b41ef08ec1779cd3305e1eea56cb2d23fa3d4ec (patch) | |
| tree | e0d7e73b18533c8556c3d8625723c2f71622fcb1 /compiler | |
| parent | 5ac946878d18294ff30e3d9cf152c678c667e37b (diff) | |
| download | haskell-1b41ef08ec1779cd3305e1eea56cb2d23fa3d4ec.tar.gz | |
Expose the dph packages automatically if -dph-* is set
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/DynFlags.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 43ecba731d..3d17361a4a 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1435,10 +1435,10 @@ dynamic_flags = [ ------ DPH flags ---------------------------------------------------- , Flag "fdph-seq" - (NoArg (upd (setDPHBackend DPHSeq))) + (NoArg (setDPHBackend DPHSeq)) Supported , Flag "fdph-par" - (NoArg (upd (setDPHBackend DPHPar))) + (NoArg (setDPHBackend DPHPar)) Supported ------ Compiler flags ----------------------------------------------- @@ -1873,9 +1873,15 @@ setDPHOpt dflags = setOptLevel 2 (dflags { maxSimplIterations = 20 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 |