Export dopt_set, dopt_unset
authorIan Lynagh <ian@well-typed.com>
Sun, 3 Mar 2013 17:35:02 +0000 (17:35 +0000)
committerIan Lynagh <ian@well-typed.com>
Sun, 3 Mar 2013 17:53:17 +0000 (17:53 +0000)
We don't need them, but GHC API users might.

compiler/main/DynFlags.hs

index 3591a30..479516d 100644 (file)
@@ -25,7 +25,7 @@ module DynFlags (
         FatalMessager, LogAction, FlushOut(..), FlushErr(..),
         ProfAuto(..),
         glasgowExtsFlags,
-        dopt,
+        dopt, dopt_set, dopt_unset,
         gopt, gopt_set, gopt_unset,
         wopt, wopt_set, wopt_unset,
         xopt, xopt_set, xopt_unset,
@@ -1477,6 +1477,10 @@ dopt f dflags = (fromEnum f `IntSet.member` dumpFlags dflags)
 dopt_set :: DynFlags -> DumpFlag -> DynFlags
 dopt_set dfs f = dfs{ dumpFlags = IntSet.insert (fromEnum f) (dumpFlags dfs) }
 
+-- | Unset a 'DumpFlag'
+dopt_unset :: DynFlags -> DumpFlag -> DynFlags
+dopt_unset dfs f = dfs{ dumpFlags = IntSet.delete (fromEnum f) (dumpFlags dfs) }
+
 -- | Test whether a 'GeneralFlag' is set
 gopt :: GeneralFlag -> DynFlags -> Bool
 gopt f dflags  = fromEnum f `IntSet.member` generalFlags dflags