Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
1b41ef08
Commit
1b41ef08
authored
Sep 12, 2008
by
rl@cse.unsw.edu.au
Browse files
Expose the dph packages automatically if -dph-* is set
parent
5ac94687
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
1b41ef08
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment