projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-03-27 16:55:03 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
CmdLineOpts.lhs
diff --git
a/ghc/compiler/main/CmdLineOpts.lhs
b/ghc/compiler/main/CmdLineOpts.lhs
index
9227351
..
a8e232b
100644
(file)
--- a/
ghc/compiler/main/CmdLineOpts.lhs
+++ b/
ghc/compiler/main/CmdLineOpts.lhs
@@
-28,6
+28,8
@@
module CmdLineOpts (
opt_PprStyle_Debug,
dopt,
opt_PprStyle_Debug,
dopt,
+ dopt_set,
+ dopt_unset,
-- other dynamic flags
dopt_CoreToDo,
-- other dynamic flags
dopt_CoreToDo,
@@
-347,6
+349,12
@@
dopt_StgToDo = stgToDo
dopt_OutName :: DynFlags -> String
dopt_OutName = hscOutName
dopt_OutName :: DynFlags -> String
dopt_OutName = hscOutName
+dopt_set :: DynFlags -> DynFlag -> DynFlags
+dopt_set dfs f = dfs{ flags = f : flags dfs }
+
+dopt_unset :: DynFlags -> DynFlag -> DynFlags
+dopt_unset dfs f = dfs{ flags = filter (/= f) (flags dfs) }
+
data HscLang
= HscC
| HscAsm
data HscLang
= HscC
| HscAsm