X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCmdLineOpts.lhs;h=a8e232b895f35c251dd069d4dadc9003d5c4798c;hb=104baabc81fb73ef681c46dd4e0e6ff5d7117d9e;hp=9227351f6d63157722c11407957b52f750477641;hpb=aa8ff01671092a30639af87e2ceee7d3fa545bcd;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 9227351..a8e232b 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -28,6 +28,8 @@ module CmdLineOpts (
 	opt_PprStyle_Debug,
 
 	dopt,
+	dopt_set,
+	dopt_unset,
 
 	-- other dynamic flags
 	dopt_CoreToDo,
@@ -347,6 +349,12 @@ dopt_StgToDo = stgToDo
 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